Ticket #41364: mini.f

File mini.f, 172 bytes (added by nicolaiheitz@…, 11 years ago)
Line 
1      PROGRAM mini
2      DOUBLE PRECISION TEMP2
3      DOUBLE PRECISION   ONE
4      PARAMETER          ONE = 1.0D+0
5      TEMP2 = ONE + 0.05D+0
6      STOP
7      END PROGRAM