gcc/testsuite/gfortran.dg/pr103366.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR103366.
   4 !
   5 ! Contributed by Gerhardt Steinmetz  <gscfq@t-online.de>
   6 !
   7 program p
   8   call u([1])
   9 contains
  10    subroutine s(x) bind(c)
  11       type(*) :: x(..)
  12    end
  13    subroutine u(x)
  14       class(*) :: x(..)
  15       call s(x)         ! Used to ICE here
  16    end
  17 end