! { dg-options "-O2 " } | |
module INT_MODULE | |
contains | |
pure function spher_cartesians(in1) result(out1) | |
integer(kind=kind(1)) :: in1 | |
intent(in) :: in1 | |
real(kind=kind(1.0d0)), dimension(0:in1,0:in1,0:in1) :: mat0 | |
mat0 = 0.0d0 | |
end function spher_cartesians | |
end module INT_MODULE |