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
libgfortran/ChangeLog:
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr20954.f
blob
be820c1e937e1fdec5bf2f61393bd66497feee5b
1
! {
dg
-
do
run
}
2
! {
dg
-
options
"-fdefault-integer-8"
}
3
!
Program to
test
character
length type
4
Program
pr20954
5
character*16 string
(
5
)
6
character*5 filename
7
character*80 line
8
filename
=
'input'
9
open
(
2
,
file
=
filename
)
10
write
(
line
,
'(5a16)'
) (
string
(
i
),
i
=
1
,
5
)
11
close
(
2
,
status
=
'delete'
)
12
end