21 lines
411 B
Fortran
21 lines
411 B
Fortran
! { dg-do compile }
|
|
! PR fortran/29403
|
|
program p
|
|
character(len=10) a, b, c
|
|
integer i
|
|
i = 1
|
|
print ('(I0)'), i
|
|
a = '(I0,'
|
|
b = 'I2,'
|
|
c = 'I4)'
|
|
call prn(a, b, c, i)
|
|
print (1,*), i ! { dg-error "in PRINT statement" }
|
|
end program p
|
|
|
|
subroutine prn(a, b, c, i)
|
|
integer i
|
|
character(len=*) a, b, c
|
|
print (a//(b//c)), i, i, i
|
|
print trim(a//trim(b//c)), i, i, i
|
|
end subroutine prn
|