module mod1
   implicit none
   integer, parameter :: i_mod1 = sum([1])
end module mod1

program prog1
   use mod1, only: sum
   implicit none
   real x

   x = sum([1.0,2.0])
   write(*,*) x
end program prog1