gcc/testsuite/gfortran.dg/external_implicit_none.f90

   1 ! { dg-do compile }
   2 ! Tests fix for PR18737 - ICE on external symbol of unknown type.
   3 program test
   4   implicit none
   5   real(8) :: x
   6   external bug  ! { dg-error "has no IMPLICIT type" }
   7
   8   x = 2
   9   print *, bug(x)
  10
  11 end program test