! { dg-do compile }
! { dg-options "-std=f2018" }
! Tests fix for PR100972 - Fails to warn about missing EXTERNAL attribute
! Contributed by Gerhard Steinmetz

program p
   implicit none (external)
   real, external :: f
   real :: a
   real :: b
   integer :: i
   character :: c
   a = f() ! OK
   b = g() ! { dg-error "Missing explicit declaration with EXTERNAL attribute" }
   i = h() ! { dg-error "Missing explicit declaration with EXTERNAL attribute" }
   c = j() ! { dg-error "Missing explicit declaration with EXTERNAL attribute" }
end