2 ! Tests the fix for PR32464, where the use associated procedure would
3 ! mess up the check for "grandparent" host association.
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
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
27 end module gfcbug64_mod1
29 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
36 real, intent(in
) :: x_o(:)
38 integer :: s(size (x_o
)) ! <- this line kills gfortran
43 use gfcbug64_mod1
, only
: inverse
! <- this line kills gfortran
47 end module gfcbug64_mod2