| ! { dg-do run } |
| !pr19313 - inquire(..pad=..) |
| implicit none |
| ! logical debug |
| ! data debug /.TRUE./ |
| character*20 chr |
| chr='' |
| ! not connected |
| inquire(7,pad=chr) |
| ! if (debug) print*,chr |
| if (chr.ne.'UNDEFINED') call abort |
| chr='' |
| ! not a formatted file |
| open(7,FORM='UNFORMATTED',STATUS='SCRATCH') |
| inquire(7,pad=chr) |
| ! if (debug) print*,chr |
| if (chr.ne.'UNDEFINED') call abort |
| chr='' |
| ! yes |
| open(8,STATUS='SCRATCH',PAD='YES') |
| inquire(8,pad=chr) |
| ! if (debug) print*,chr |
| if (chr.ne.'YES') call abort |
| chr='' |
| ! no |
| open(9,STATUS='SCRATCH',PAD='NO') |
| inquire(9,pad=chr) |
| ! if (debug) print*,chr |
| if (chr.ne.'NO') call abort |
| chr='' |
| end |