Sign in
llvm
/
llvm-archive
/
cfaec05de39adb34392b8c7b1ad4b32abbf3663d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
open_access_1.f90
blob: 95466177f411cb54f9dc122adcef15cd63120be2 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
real
::
a
a
=
6.0
open
(
unit
=
6
,
file
=
'foo'
,
access
=
a
)
!
{
dg
-
error
"must be of type CHARACTER"
}
end