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

backport: [multiple changes] 

2009-06-30  H.J. Lu  <hongjiu.lu@intel.com>

	Backport from mainline:
	2009-06-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/40576
	* gfortran.dg/internal_write_1.f90:  New testcase.

	2009-06-30  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/40594
	* gfortran.dg/derived_pointer_recursion_2.f90: New.

From-SVN: r149110
This commit is contained in:
H.J. Lu 2009-06-30 17:13:38 +00:00 committed by H.J. Lu
parent ae354b7b2b
commit 88f2d0871d
3 changed files with 70 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,16 @@
2009-06-30 H.J. Lu <hongjiu.lu@intel.com>
Backport from mainline:
2009-06-30 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/40576
* gfortran.dg/internal_write_1.f90: New testcase.
2009-06-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/40594
* gfortran.dg/derived_pointer_recursion_2.f90: New.
2009-06-30 H.J. Lu <hongjiu.lu@intel.com>
Backport from mainline:

48
gcc/testsuite/gfortran.dg/derived_pointer_recursion_2.f90 Normal file
View File

@ -0,0 +1,48 @@
! { dg-do run }
!
! PR 40594: [4.5 Regression] wrong-code
!
! Original test case by Daniel Franke <dfranke@gcc.gnu.org>
! Modified by Janus Weil <janus@gcc.gnu.org>
MODULE atom_types
TYPE :: atom_list
TYPE(atom_private), DIMENSION(:), pointer :: table
END TYPE
TYPE :: atom_private
TYPE(atom_list) :: neighbours
LOGICAL :: initialized = .true.
END TYPE
TYPE :: atom_model
TYPE(atom_list) :: atoms
integer :: dummy
END TYPE
contains
SUBROUTINE init(this)
TYPE(atom_private) :: this
this%initialized = .FALSE.
END SUBROUTINE
END MODULE
program pr40594
USE atom_types
TYPE(atom_model) :: am
type(atom_private) :: ap
am%dummy = 0
call init(ap)
if (ap%initialized .neqv. .false.) call abort()
END
! { dg-final { cleanup-modules "atom_types" } }

9
gcc/testsuite/gfortran.dg/internal_write_1.f90 Normal file
View File

@ -0,0 +1,9 @@
! { dg-do run }
! { dg-shouldfail "End of file" }
program main
character(len=20) :: line
integer, dimension(4) :: n
n = 1
write(line,'(2I2)') n
end program main
! { dg-output "Fortran runtime error: End of file" }