2 !pr19313 - inquire(..pad=..)
10 ! if (debug) print*,chr
11 if (chr.ne.'UNDEFINED') call abort
13 ! not a formatted file
14 open(7,FORM='UNFORMATTED',STATUS='SCRATCH')
16 ! if (debug) print*,chr
17 if (chr.ne.'UNDEFINED') call abort
20 open(8,STATUS='SCRATCH',PAD='YES')
22 ! if (debug) print*,chr
23 if (chr.ne.'YES') call abort
26 open(9,STATUS='SCRATCH',PAD='NO')
28 ! if (debug) print*,chr
29 if (chr.ne.'NO') call abort