URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [used_types_12.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! Tests the fix PR29744, which is really a repeat of PR19362.
! The problem came about because the test for PR19362 shifted
! the fix to a subroutine, rather than the main program that
! it originally occurred in. Fixes for subsequent PRs introduced
! a difference between the main program and a contained procedure
! that resulted in the compiler going into an infinite loop.
!
! Contributed by Harald Anlauf <anlauf@gmx.de>
! and originally by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
!
MODULE M
TYPE T0
SEQUENCE
INTEGER I
END TYPE
END
PROGRAM MAIN
USE M, T1 => T0
TYPE T0
SEQUENCE
INTEGER I
END TYPE
TYPE(T0) :: BAR
TYPE(T1) :: BAZ
BAZ = BAR
END
! { dg-final { cleanup-modules "m" } }
Go to most recent revision | Compare with Previous | Blame | View Log