gcc/testsuite/gfortran.dg/pr89462.f90

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