RosettaCodeData/Task/A+B/Fortran/a+b-2.f

6 lines
96 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
READ (1,100) I,J
100 FORMAT(2I5)
WRITE (2,200) I+J
200 FORMAT(1X,I5)
END