OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_6.f90] - Rev 154

Compare with Previous | Blame | View Log

! { 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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.