From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/testsuite/gfortran.dg/namelist_40.f90 | 54 +++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/namelist_40.f90 (limited to 'gcc/testsuite/gfortran.dg/namelist_40.f90') diff --git a/gcc/testsuite/gfortran.dg/namelist_40.f90 b/gcc/testsuite/gfortran.dg/namelist_40.f90 new file mode 100644 index 000000000..d6f896a39 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_40.f90 @@ -0,0 +1,54 @@ +! { dg-do run } +! PR33672 Additional runtime checks needed for namelist reads +! Submitted by Jerry DeLisle + +module global + type :: mt + character(len=2) :: ch(2) = (/"aa","bb"/) + end type mt + type :: bt + integer :: i(2) = (/1,2/) + type(mt) :: m(2) + end type bt +end module global + +program namelist_40 + use global + type(bt) :: x(2) + character(40) :: teststring + namelist /mynml/ x + + teststring = " x(2)%m%ch(:)(2:2) = 'z','z'," + call writenml (teststring) + teststring = " x(2)%m(2)%ch(:)(2) = 'z','z'," + call writenml (teststring) + teststring = " x(2)%m(2)%ch(:)(:3) = 'z','z'," + call writenml (teststring) + teststring = " x(2)%m(2)%ch(1:2)(k:) = 'z','z'," + call writenml (teststring) + +contains + +subroutine writenml (astring) + character(40), intent(in) :: astring + character(300) :: errmessage + integer :: ierror + + open (10, status="scratch", delim='apostrophe') + write (10, '(A)') "&MYNML" + write (10, '(A)') astring + write (10, '(A)') "/" + rewind (10) + read (10, nml = mynml, iostat=ierror, iomsg=errmessage) + if (ierror == 0) call abort + print '(a)', trim(errmessage) + close (10) + +end subroutine writenml + +end program namelist_40 +! { dg-output "Multiple sub-objects with non-zero rank in namelist object x%m%ch(\n|\r\n|\r)" } +! { dg-output "Missing colon in substring qualifier for namelist variable x%m%ch(\n|\r\n|\r)" } +! { dg-output "Substring out of range for namelist variable x%m%ch(\n|\r\n|\r)" } +! { dg-output "Bad character in substring qualifier for namelist variable x%m%ch(\n|\r\n|\r)" } +! { dg-final { cleanup-modules "global" } } -- cgit v1.2.3