SCAN (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_scan WRITE(,) SCAN("FORTRAN", "AO") ! 2, found 'O' WRITE(,) SCAN("FORTRAN", "AO", .TRUE.) ! 6, found 'A' WRITE(,) SCAN("FORTRAN", "C++") ! 0, found none END PROGRAM