1*73a0ae02SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*73a0ae02SPeter Klausler! Catch error instead of crashing with infinite recursion 3*73a0ae02SPeter Klausler! when a LEN PDT from one type is being used to define a 4*73a0ae02SPeter Klausler! LEN PDT in another type's instantiation. 5*73a0ae02SPeter Klauslerprogram main 6*73a0ae02SPeter Klausler type t1(lp) 7*73a0ae02SPeter Klausler integer, len :: lp 8*73a0ae02SPeter Klausler end type 9*73a0ae02SPeter Klausler type t2(lp) 10*73a0ae02SPeter Klausler integer, len :: lp 11*73a0ae02SPeter Klausler type(t1(lp)) :: c 12*73a0ae02SPeter Klausler end type 13*73a0ae02SPeter Klausler integer local 14*73a0ae02SPeter Klausler !ERROR: Invalid specification expression: reference to local entity 'local' 15*73a0ae02SPeter Klausler type(t2(local)) :: x 16*73a0ae02SPeter Klauslerend 17