Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/inquire_15.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
line wrap: on
line source

! { dg-do run }
! PR48976 test case by jvdelisle@gcc.gnu.org
character(len=20) :: str
str = "abcdefg"
inquire(file="abcddummy", stream=str)
!print *, "str=",str
if (str /= "UNKNOWN") call abort
inquire(99, stream=str)
!print *, "str=",str
if (str /= "UNKNOWN") call abort
open(99,access="stream")
inquire(99, stream=str)
!print *, "str=",str
if (str /= "YES") goto 10
close(99)
open(99,access="direct", recl=16)
inquire(99, stream=str)
!print *, "str=",str
if (str /= "NO") goto 10
close(99)
open(99,access="sequential")
inquire(99, stream=str)
!print *, "str=",str
if (str /= "NO") goto 10
close(99, status="delete")
stop
10 close(99, status="delete")
call abort
end