URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_6.f90] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log