used_types_1.f90

用于进行gcc测试

! { dg-do compile }
! This checks that the fix for PR25730, which was a regression
! caused by the fix for PR19362.
!
! Contributed by Andrea Bedini <[e-mail]>
!==============
MODULE testcase
  TYPE orbit_elem
     CHARACTER(4) :: coo
  END TYPE orbit_elem
END MODULE
MODULE tp_trace
  USE testcase
  TYPE(orbit_elem) :: tp_store
CONTAINS
  SUBROUTINE str_clan()
    USE testcase
    TYPE(orbit_elem) :: mtpcar
    mtpcar%coo='a'             !ICE was here
  END SUBROUTINE str_clan
END MODULE

! { dg-final { cleanup-modules "testcase tp_trace" } }