gcc-4.9/gcc/testsuite/gfortran.dg/public_private_module_5.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

! { dg-do compile }
! { dg-options "-O3" }
!
! PR fortran/53175
!

MODULE ENERGY_FUNCTION
   IMPLICIT NONE

   TYPE PARAM
      PRIVATE
         INTEGER :: WHICH_VECTOR
   END TYPE PARAM

   INTEGER, PRIVATE :: DIM2
   INTEGER, PRIVATE :: DIM5

   private :: specific
   interface gen
     module procedure  specific
   end interface gen

   CONTAINS

      FUNCTION ENERGY_FUNCTION_CURRENT_ARGS()
         INTEGER, DIMENSION(DIM2) :: ENERGY_FUNCTION_CURRENT_ARGS
      END FUNCTION ENERGY_FUNCTION_CURRENT_ARGS

      FUNCTION ENERGY_FUNCTION_GET_PARAMS()
         TYPE(PARAM), DIMENSION(DIM2) :: ENERGY_FUNCTION_GET_PARAMS
      END FUNCTION ENERGY_FUNCTION_GET_PARAMS   

      function specific()
        character(len=dim5) :: specific
      end function specific
END MODULE ENERGY_FUNCTION

! { dg-final { scan-assembler "__energy_function_MOD_dim2" } }
! { dg-final { scan-assembler "__energy_function_MOD_dim5" } }