1 *JOBID,NOLIST
2 *DUMP
3 PROGRAM FTEST
4 C SIMPLE FORTRAN IV TEST
5 WRITE(3,200)
6 WRITE(3,201)
7 DO 100 IA=1,5
8 DO 100 IB=1,5
9 A=FLOAT(IA)
10 B=FLOAT(IB)
11 AREA=A*B
12 DIAG=SQRT(A**2.0+B**2.0)
13 WRITE(3,202) A,B,AREA,DIAG
14 100 CONTINUE
15 200 FORMAT (14H HELLO WORLD! ,' RECTANGLE AREA AND DIAGONAL:' )
16 201 FORMAT (1X,2X,8H A,2X,8H B,2X,8H AREA,2X,8H DIAG)
17 202 FORMAT (1X,4(2X,F8.4))
18 END
END OF COMPILE
HELLO WORLD! RECTANGLE AREA AND DIAGONAL:
A B AREA DIAG
1.0000 1.0000 1.0000 1.4142
1.0000 2.0000 2.0000 2.2361
1.0000 3.0000 3.0000 3.1623
1.0000 4.0000 4.0000 4.1231
1.0000 5.0000 5.0000 5.0990
2.0000 1.0000 2.0000 2.2361
2.0000 2.0000 4.0000 2.8284
2.0000 3.0000 6.0000 3.6056
2.0000 4.0000 8.0000 4.4721
2.0000 5.0000 10.0000 5.3852
3.0000 1.0000 3.0000 3.1623
3.0000 2.0000 6.0000 3.6056
3.0000 3.0000 9.0000 4.2426
3.0000 4.0000 12.0000 5.0000
3.0000 5.0000 15.0000 5.8310
4.0000 1.0000 4.0000 4.1231
4.0000 2.0000 8.0000 4.4721
4.0000 3.0000 12.0000 5.0000
4.0000 4.0000 16.0000 5.6569
4.0000 5.0000 20.0000 6.4031
5.0000 1.0000 5.0000 5.0990
5.0000 2.0000 10.0000 5.3852
5.0000 3.0000 15.0000 5.8310
5.0000 4.0000 20.0000 6.4031
5.0000 5.0000 25.0000 7.0711
MEMORY DUMP: 0002474 - 0003513
0002400 1 2 3 4 5 6 7 0002500 1 2 3 4 5 6 7
0123456789'=: >&+ABCDEFGHI;.)%■0D0000002D0000002D0000002)B:H0702+000
00000000111111112222222233333330200000002000000020000000321300002000
01234567012345670123456701234560400000024000000240000002424007020000
W W W W W
0002600 1 2 3 4 5 6 7 0002700 1 2 3 4 5 6 7
0001I0000004I0000004I00000041006006)B:H07025I000000500014H HELLO WORLD! ,' RECTANGLE AREA AND DIAGONAL:'1X,2X,8H A,2X,8H
00003000000030000000300000000000000321300000300000000000031324441645425171152262424212522124212322442411067067131111111270671311
00011000000410000004100000041006006424007025100000050001405053365661347532515331573551151515454117651342173273005555555132730055
W W W WW W W WW W W IW
0003000 1 2 3 4 5 6 7 0003100 1 2 3 4 5 6 7
B,2X,8H AREA,2X,8H DIAG1X,4(2X,F8.4)K0V7¢¢FORTRAN0D(0E.0E)V0D©0FX+V0D©0FX¢V0D©0GQ+V0D©0GQ¢%0F?)0F)0F?%0FK)0F)0FKV0E 0
11111270671311112522706713111123220670706721303406077245652402702302360270262602702676027025260270257302330230233024302302460210
55555232730055551151327300555541171734427360344205777661311504405305450450670504506775045070050450707506740640675062406406250550
IW IW W W W W W IW W RW W RW W RW W RW W W W W W
0003200 1 2 3 4 5 6 7 0003300 1 2 3 4 5 6 7
ET0F? 0ET0ELV0E 0ET0FK 0ET0E$ 0EL0FTV0D¢0E$0FT+ 0FT0F. 0EL0FCV0D¢0F30FCB 0E$0F=V0D¢0F30F=B 0FC0FTV0D¢0F=0FT>V0E80F#0FT 0F#0E,V0D
26023102602460210260241026025102402660270250262102602310240226027020022210250216027020021210220266027021026160210250261025027602
53067505305350550530625053053505306350470530630506306350530635047063063250530635047063063250630635047063063650500620635062053504
W IW W W W IW W W W W IW W W W W IW W W W IW W W W IW W W IW W
0003400 1 2 3 4 5 6 7 0003500 1 2 3 4 5 6 7
©0HK+L0ELL0E$L0F.L0E,V0D©0HK¢)0F)0FK.0F$0FKV0I,L)0F)0F?.0F$0F?V0I<LV0D(N0%7-
7034240244025402340276027034730230243025024603743023023302502360364602740304
5002030533053306330535045002740640623063062501334064067306306750103504450570
W RWW IWW IWW IWW IW W RW W W W W W W W W