! { dg-do compile }
! { dg-options "-pedantic-errors" }
! Test the fix for PR89462 in which the shared 'cl' field of the typespec
! shared between 'test', 'TR' and 'aTP' caused the compiler to go into an
! infinite loop.
! Contributed by Sergei Trofimovich  <slyich@gmail.com>
  CHARACTER*1 FUNCTION test(H) ! { dg-warning "Old-style character length" }
     CHARACTER*1 test2,TR,aTP  ! { dg-warning "Old-style character length" }
     ENTRY test2(L)
     CALL ttest3(aTP)
     test = TR
     RETURN
  END