Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
open_access_append_2.f90
blob: 3f9dd914d6ac8c4610bd3736a7003a2b981631ce [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Testcase
for
the GNU extension OPEN
(...,
ACCESS
=
"APPEND"
)
open
(
10
,
err
=
900
,
access
=
"append"
,
position
=
"asis"
)
!
{
dg
-
warning
"Extension: ACCESS specifier in OPEN statement"
}
call abort
900
end
!
{
dg
-
output
".*Extension.*"
}