Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
fmt_read_4.f90
blob: 010cee971de6cab0ef69e033ef209d61ebbf460c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR52393
"READ format"
statement
with
parenthesed
default
-
char
-
expr
PROGRAM
ReadMeTwo
IMPLICIT NONE
CHARACTER
(
10
)
::
var
var
=
"TestStr"
READ
(
'(('
)
// 'A)', var ! { dg-error "Unexpected end of format" }
END
PROGRAM
ReadMeTwo