| ! { dg-do compile } |
| ! This checks that the fix for PR25730, which was a regression |
| ! caused by the fix for PR19362. |
| ! |
| ! Contributed by Andrea Bedini <andrea.bedini@gmail.com> |
| !============== |
| 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" } } |