Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/open_errors_2.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 ! { dg-do run } 1 ! { dg-do run }
2 ! { dg-options "-std=f2008" }
2 ! { dg-shouldfail "runtime error" } 3 ! { dg-shouldfail "runtime error" }
3 ! { dg-output "At line 13.*File already opened" } 4 ! { dg-output "At line 14.*File already opened" }
4 5
5 ! PR 65563 - this used to segfault for some versions. 6 ! PR 65563 - this used to segfault for some versions.
6 variable_1 = 0 7 variable_1 = 0
7 open(345,iostat=ios, form='unformatted') 8 open(345,iostat=ios, form='unformatted')
8 read(345, err=37, end=37) variable_1 9 read(345, err=37, end=37) variable_1