34 lines
789 B
Fortran
34 lines
789 B
Fortran
! { dg-do run }
|
|
! { dg-options "-std=legacy" }
|
|
!
|
|
!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
|