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.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_6.f90] - Blame information for rev 302

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { 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

powered by: WebSVN 2.1.0

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