llvm/flang/test/Semantics/pdt01.f90

! 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