used_types_12.f90

来自「用于进行gcc测试」· F90 代码 · 共 31 行

! { 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  <[e-mail]>
! and originally by Francois-Xavier Coudert  <[e-mail]> 
!
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" } }