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') STOP 1 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') STOP 2 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') STOP 3 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') STOP 4 32 chr='' 33 end 34