Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
slash_edit.f90
blob: 406db9bf319254e7b7a730d698ca3db5acf3326f [
file
] [
log
] [
blame
]
!
pr
14762
-
'/'
not
working
in
format
INTEGER N
(
5
)
DATA N
/
1
,
2
,
3
,
4
,
5
/
OPEN
(
UNIT
=
7
)
100
FORMAT
(
I4
)
WRITE
(
7
,
100
)
N
CLOSE
(
7
)
OPEN
(
7
)
200
FORMAT
(
I4
,
///I4)
READ
(
7
,
200
)
I
,
J
CLOSE
(
7
,
STATUS
=
'DELETE'
)
IF
(
I
.
NE
.
1
)
STOP
1
IF
(
J
.
NE
.
4
)
STOP
2
END
