1 ! Testcase for the FGETC and FPUTC intrinsics
11 if ((st /= 0) .or. (s /= "a ")) call abort
15 open(status="scratch")
18 if (st /= 0) call abort
20 if (st /= 0) call abort
22 if (st /= 0) call abort
25 if (s(1:1) /= "1") call abort
27 if (s(1:1) /= "2") call abort
29 if ((s(1:1) /= "3") .or. (st /= 0)) call abort
31 if (st /= -1) call abort