! RUN: %python %S/test_errors.py %s %flang_fc1 | |
! Catch error instead of crashing with infinite recursion | |
! when a LEN PDT from one type is being used to define a | |
! LEN PDT in another type's instantiation. | |
program main | |
type t1(lp) | |
integer, len :: lp | |
end type | |
type t2(lp) | |
integer, len :: lp | |
type(t1(lp)) :: c | |
end type | |
integer local | |
!ERROR: Invalid specification expression: reference to local entity 'local' | |
type(t2(local)) :: x | |
end |