blob: 43711d4217659bddd3fddb4b089770862a544212 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { dg-do compile }
! Tests the fix for PR25056 in which a non-PURE procedure could be
! passed as the actual argument to a PURE procedure.
!
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
!
MODULE M1
CONTAINS
FUNCTION L()
L=1
END FUNCTION L
PURE FUNCTION J(K)
INTERFACE
PURE FUNCTION K()
END FUNCTION K
END INTERFACE
J=K()
END FUNCTION J
END MODULE M1
USE M1
write(6,*) J(L) ! { dg-error "Expected a PURE procedure for argument" }
END
! { dg-final { cleanup-modules "M1" } }
|
