1! { dg-do compile } 2! Tests the fix for PR32464, where the use associated procedure would 3! mess up the check for "grandparent" host association. 4! 5! Contributed by Harald Anlauf <anlauf@gmx.de> 6! 7 8module gfcbug64_mod1 9 implicit none 10 11 public :: inverse 12 13 interface inverse 14 module procedure copy 15 end interface 16 17contains 18 19 function copy (d) result (y) 20 real, intent(in) :: d(:) 21 real :: y(size (d)) ! <- this version kills gfortran 22! real, intent(in) :: d 23! real :: y 24 y = d 25 end function copy 26 27end module gfcbug64_mod1 28 29!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 30 31module gfcbug64_mod2 32 implicit none 33contains 34 35 subroutine foo (x_o) 36 real, intent(in) :: x_o(:) 37 38 integer :: s(size (x_o)) ! <- this line kills gfortran 39 40 contains 41 42 subroutine bar () 43 use gfcbug64_mod1, only: inverse ! <- this line kills gfortran 44 end subroutine bar 45 46 end subroutine foo 47end module gfcbug64_mod2 48