Mercurial > hg > CbC > CbC_gcc

comparison 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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! PR48976 test case by jvdelisle@gcc.gnu.org
3 character(len=20) :: str
4 str = "abcdefg"
5 inquire(file="abcddummy", stream=str)
6 !print *, "str=",str
7 if (str /= "UNKNOWN") call abort
8 inquire(99, stream=str)
9 !print *, "str=",str
10 if (str /= "UNKNOWN") call abort
11 open(99,access="stream")
12 inquire(99, stream=str)
13 !print *, "str=",str
14 if (str /= "YES") goto 10
15 close(99)
16 open(99,access="direct", recl=16)
17 inquire(99, stream=str)
18 !print *, "str=",str
19 if (str /= "NO") goto 10
20 close(99)
21 open(99,access="sequential")
22 inquire(99, stream=str)
23 !print *, "str=",str
24 if (str /= "NO") goto 10
25 close(99, status="delete")
26 stop
27 10 close(99, status="delete")
28 call abort
29 end