blob: f0e0bb9198b3d9ab2ad2531713a6e1bc2d4aed10 [file] [log] [blame]
! { dg-do run }
! Tests the fix for the bug PR30746, in which the reference to 'x'
! in 'inner' wrongly host-associated with the variable 'x' rather
! than the function.
!
! Testcase is due to Malcolm Cohen, NAG.
!
real function z (i)
integer :: i
z = real (i)**i
end function
MODULE m
REAL :: x(3) = (/ 1.5, 2.5, 3.5 /)
interface
real function z (i)
integer :: i
end function
end interface
CONTAINS
SUBROUTINE s
if (x(2, 3) .ne. real (2)**3) STOP 1
if (z(3, 3) .ne. real (3)**3) STOP 2
CALL inner
CONTAINS
SUBROUTINE inner
i = 7
if (x(i, 7) .ne. real (7)**7) STOP 3
if (z(i, 7) .ne. real (7)**7) STOP 4
END SUBROUTINE
FUNCTION x(n, m)
x = REAL(n)**m
END FUNCTION
FUNCTION z(n, m)
z = REAL(n)**m
END FUNCTION
END SUBROUTINE
END MODULE
use m
call s()
end