OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/29403 ([4.1 only] print ('(a)') not working, print '(a) works) 

2006-10-15  Steven G. Kargl  <kargl@gcc.gnu.org>

        PR fortran/29403
        * gfortran.dg/print_1.f90: New test.

From-SVN: r117765
This commit is contained in:
Steven G. Kargl 2006-10-16 00:54:01 +00:00
parent ff2c6bbbc9
commit 8e9f197690
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2006-10-15 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/29403
* gfortran.dg/print_1.f90: New test.
2006-10-15 Jan Hubicka <jh@suse.cz>
PR middle-end/29241

20
gcc/testsuite/gfortran.dg/print_1.f90 Normal file
View File

@ -0,0 +1,20 @@
! { 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