1 ! Testcase for the FGETC and FPUTC intrinsics
7 open(10,status
="scratch")
8 write(10,"(A)") "abcde"
11 if ((st
/= 0) .or
. (s
/= "a ")) STOP 1
15 open(10,status
="scratch")
21 call fputc(10,"3 ",st
)
25 if (s(1:1) /= "1") STOP 5
27 if (s(1:1) /= "2") STOP 6
29 if ((s(1:1) /= "3") .or
. (st
/= 0)) STOP 7
34 ! FGETC and FPUTC on units not opened should not work