1! { dg-do compile }
2! Tests fix for PR18737 - ICE on external symbol of unknown type.
3program 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
11end program test