2 ! This checks that the fix for PR25730, which was a regression
3 ! caused by the fix for PR19362.
5 ! Contributed by Andrea Bedini <andrea.bedini@gmail.com>
14 TYPE(orbit_elem) :: tp_store
18 TYPE(orbit_elem) :: mtpcar
19 mtpcar%coo='a' !ICE was here
20 END SUBROUTINE str_clan
23 ! { dg-final { cleanup-modules "testcase tp_trace" } }