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
/
pr65903.f90
blob
20e78cad3151207fbf6ea90e32cff1889b955ca0
1
! { dg-do run }
2
! { dg-options "-std=gnu" }
3
!
4
character
(
20
) ::
astring
5
6
100
format
(
"& notblank !"
)
7
200
format
(
"& !"
)
8
300
format
(
"&!"
)
9
10
write
(
astring
,
100
)
11
if
(
astring
.
ne
.
"& notblank !"
)
call
abort
12
!print *, astring
13
write
(
astring
,
200
)
14
if
(
astring
.
ne
.
"& !"
)
call
abort
15
!print *, astring
16
write
(
astring
,
300
)
17
if
(
astring
.
ne
.
"&!"
)
call
abort
18
!print *, astring
19
20
end