1! { dg-do compile } 2! This checks that the fix for PR25730, which was a regression 3! caused by the fix for PR19362. 4! 5! Contributed by Andrea Bedini <andrea.bedini@gmail.com> 6!============== 7MODULE testcase 8 TYPE orbit_elem 9 CHARACTER(4) :: coo 10 END TYPE orbit_elem 11END MODULE 12MODULE tp_trace 13 USE testcase 14 TYPE(orbit_elem) :: tp_store 15CONTAINS 16 SUBROUTINE str_clan() 17 USE testcase 18 TYPE(orbit_elem) :: mtpcar 19 mtpcar%coo='a' !ICE was here 20 END SUBROUTINE str_clan 21END MODULE 22