PROGRAM TEST IMPLICIT NONE REAL :: A,B,WA WRITE(*,*) 'A,B=' READ(*,*) A,B WA=A+B WRITE(*,*) 'A+B=', WA STOP END PROGRAM TEST
25, 38
A+B= 63.0000000
integer :: i
real :: a
real(8) :: a