Sign in
gnu
/
gcc
/
0b6b70a0733672600644c8df96942cda5bf86d3d
/
.
/
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