gcc/testsuite/gfortran.dg/inquire_6.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 !pr19313 - inquire(..pad=..)
   5       implicit none
   6 !     logical debug
   7 !     data debug /.TRUE./
   8       character*20 chr
   9       chr=''
  10 !  not connected
  11       inquire(7,pad=chr)
  12 !     if (debug) print*,chr
  13       if (chr.ne.'UNDEFINED') call abort
  14       chr=''
  15 !  not a formatted file
  16       open(7,FORM='UNFORMATTED',STATUS='SCRATCH')
  17       inquire(7,pad=chr)
  18 !     if (debug) print*,chr
  19       if (chr.ne.'UNDEFINED') call abort
  20       chr=''
  21 ! yes
  22       open(8,STATUS='SCRATCH',PAD='YES')
  23       inquire(8,pad=chr)
  24 !     if (debug) print*,chr
  25       if (chr.ne.'YES') call abort
  26       chr=''
  27 ! no
  28       open(9,STATUS='SCRATCH',PAD='NO')
  29       inquire(9,pad=chr)
  30 !     if (debug) print*,chr
  31       if (chr.ne.'NO') call abort
  32       chr=''
  33       end