1 ! { dg-options "-O2 " }
5 pure
function spher_cartesians(in1
) result(out1
)
6 integer(kind
=kind(1)) :: in1
8 real(kind
=kind(1.0d0)), dimension(0:in1
,0:in1
,0:in1
) :: mat0
10 end function spher_cartesians
12 ! { dg-final { cleanup-modules "int_module" } }