OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* MAINTAINERS (mt port): Remove.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
print_1.f90
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