used_types_1.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 22 行

! { 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