gcc/testsuite/gfortran.dg/pr17615.f90

   1 ! { dg-do compile }
   2 ! we didn't look at the right symbol when genrating code. This broke
   3 ! when array valued functions came into play.
   4 module module_vec3d
   5   INTERFACE cross_product
   6      MODULE PROCEDURE cross_product3_R4_R8
   7   END INTERFACE
   8 CONTAINS
   9   FUNCTION cross_product3_R4_R8 ()
  10     real(8) :: cross_product3_r4_r8(3)
  11     cross_product3_r4_r8 = 0
  12   END FUNCTION cross_product3_R4_R8
  13 END MODULE module_vec3d
  14
  15 PROGRAM TEST
  16   use module_vec3d, only: cross_product
  17   real(8) :: c(3)
  18   c = cross_product()
  19 END PROGRAM TEST
  20
  21 ! { dg-final { cleanup-modules "module_vec3d" } }