diff options
author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-16 00:54:01 +0000 |
---|---|---|
committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-16 00:54:01 +0000 |
commit | b74897338494d06cb21c99dfa8eb4adc07c141de (patch) | |
tree | d8d92a3b58ddbdff4bd47aed68e3b932d11b5b5d | |
parent | 74068f17b727e93c6d7a135813500f3b68962278 (diff) | |
download | ppe42-gcc-b74897338494d06cb21c99dfa8eb4adc07c141de.tar.gz ppe42-gcc-b74897338494d06cb21c99dfa8eb4adc07c141de.zip |
2006-10-15 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/29403
* gfortran.dg/print_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117765 138bc75d-0d04-0410-961f-82ee72b054a4
-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 33d2825fc1c..4c2efe41af7 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 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 |