diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-10-16 00:54:01 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-10-16 00:54:01 +0000 |
| commit | 8e9f197690bde78d9e897939a58c945afd4ad1a2 (patch) | |
| tree | d8d92a3b58ddbdff4bd47aed68e3b932d11b5b5d | |
| parent | ff2c6bbbc95dfca01f13a1a2d8683e515dea5fcd (diff) | |
| download | gcc-8e9f197690bde78d9e897939a58c945afd4ad1a2.zip gcc-8e9f197690bde78d9e897939a58c945afd4ad1a2.tar.gz gcc-8e9f197690bde78d9e897939a58c945afd4ad1a2.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/print_1.f90 | 20 |
2 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 33d2825..4c2efe4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/print_1.f90 b/gcc/testsuite/gfortran.dg/print_1.f90 new file mode 100644 index 0000000..8f4ef3c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/print_1.f90 @@ -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 |