Sign in
llvm
/
llvm-archive
/
f8b4f79771a41ee0a0f02ac90619d37ccd834915
/
.
/
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