repo.or.cz
/
official-gcc
/
graphite-test-results.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge from mainline (167278:168000).
[official-gcc/graphite-test-results.git]
/
gcc
/
testsuite
/
gfortran.dg
/
print_1.f90
blob
8f4ef3cf4c22bd38c0054f7f0fdecfc44f94bfd2
1
! { dg-do compile }
2
! PR fortran/29403
3
program
p
4
character
(
len
=
10
)
a
,
b
,
c
5
integer
i
6
i
=
1
7
print
(
'(I0)'
),
i
8
a
=
'(I0,'
9
b
=
'I2,'
10
c
=
'I4)'
11
call
prn
(
a
,
b
,
c
,
i
)
12
print
(
1
,*),
i
! { dg-error "in PRINT statement" }
13
end program
p
14
15
subroutine
prn
(
a
,
b
,
c
,
i
)
16
integer
i
17
character
(
len
=*)
a
,
b
,
c
18
print
(
a
//(
b
//
c
)),
i
,
i
,
i
19
print
trim
(
a
//
trim
(
b
//
c
)),
i
,
i
,
i
20
end subroutine
prn