2 ! { dg-options "-std=legacy" }
4 !pr19313 - inquire(..pad=..)
12 ! if (debug) print*,chr
13 if (chr.ne.'UNDEFINED') call abort
15 ! not a formatted file
16 open(7,FORM='UNFORMATTED',STATUS='SCRATCH')
18 ! if (debug) print*,chr
19 if (chr.ne.'UNDEFINED') call abort
22 open(8,STATUS='SCRATCH',PAD='YES')
24 ! if (debug) print*,chr
25 if (chr.ne.'YES') call abort
28 open(9,STATUS='SCRATCH',PAD='NO')
30 ! if (debug) print*,chr
31 if (chr.ne.'NO') call abort