From 8e9f197690bde78d9e897939a58c945afd4ad1a2 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 16 Oct 2006 00:54:01 +0000 Subject: [PATCH] re PR fortran/29403 ([4.1 only] print ('(a)') not working, print '(a) works) 2006-10-15 Steven G. Kargl PR fortran/29403 * gfortran.dg/print_1.f90: New test. From-SVN: r117765 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/print_1.f90 | 20 ++++++++++++++++++++ 2 files changed, 25 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/print_1.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 33d2825fc1c..4c2efe41af7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-10-15 Steven G. Kargl + + PR fortran/29403 + * gfortran.dg/print_1.f90: New test. + 2006-10-15 Jan Hubicka 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 00000000000..8f4ef3cf4c2 --- /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 -- 2.30.2