blob: 329deedc4135fd886a3f983e2e27603dbefbc596 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
