Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/host_assoc_function_9.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Tests the fix for the bug PR40629, in which the reference to 'x' ! in 'upper' wrongly host-associated with the symbol 'x' at module ! leve rather than the function. ! ! Contributed by Philippe Marguinaud <philippe.marguinaud@meteo.fr> ! MODULE m REAL :: x = 0 CONTAINS subroutine s call upper call lower CONTAINS SUBROUTINE upper y = x(3,1) if (int(y) .ne. 3) STOP 1 END SUBROUTINE FUNCTION x(n, m) x = m*n END FUNCTION SUBROUTINE lower y = x(2,1) if (int(y) .ne. 2) STOP 2 END SUBROUTINE END SUBROUTINE END MODULE use m call s end