gcc/testsuite/gfortran.dg/host_assoc_function_2.f90

   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
   8 module gfcbug64_mod1
   9   implicit none
  10
  11   public :: inverse
  12
  13   interface inverse
  14      module procedure copy
  15   end interface
  16
  17 contains
  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
  27 end module gfcbug64_mod1
  28
  29 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  30
  31 module gfcbug64_mod2
  32   implicit none
  33 contains
  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
  47 end module gfcbug64_mod2
  48 ! { dg-final { cleanup-modules "gfcbug64_mod1 gfcbug64_mod2" } }