repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR target/83368
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
streamio_17.f90
blob
41fa0b98f9e95756ea37c2e736d92915c6e67737
1
! { dg-do run }
2
program
stream_test
3
implicit none
4
integer
::
ios
5
character
(
128
) ::
message
6
open
(
10
,
status
=
'scratch'
,
access
=
'stream'
)
7
write
(
10
,
rec
=
1
,
iostat
=
ios
,
iomsg
=
message
)
"This is a test"
!
8
if
(
ios
.
ne
.5001
)
call
abort
9
if
(
message
.
ne
. &
10
&
"Record number not allowed for stream access data transfer"
) &
11
call
abort
12
end program