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