gcc/testsuite/gfortran.dg/external_procedure_4.f90

   1 ! { dg-do compile }
   2 ! PR fortran/90937 - this used to cause an ICE.
   3 ! Original test case by Toon Moene.
   4 subroutine lfidiff
   5
   6    implicit none
   7
   8    contains
   9
  10       subroutine grlfi(cdnom)
  11
  12          character(len=*) cdnom(:)
  13          character(len=len(cdnom)) clnoma
  14
  15          call lficas(clnoma)
  16
  17       end subroutine grlfi
  18
  19 end subroutine lfidiff