Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/factory-monroe-5140.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
open-options-blanks.f
blob: 4db31b9e31a2a07e7f186c16f6d2572bc270111b [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=legacy"
}
!
!
PR
20163
,
first half
:
Trailing
blanks on an option to
!
open used to cause an error
CHARACTER
*
8
ST
ST
=
'SCRATCH '
OPEN
(
UNIT
=
10
,
STATUS
=
ST
)
END