To all:
I ran into another case causing trouble to some compilers:
print *,f((/1,2,3/))
contains
elemental function f(arg)
integer,intent(in)::arg
type test
integer::x(3)=(/2,4,2/)
end type
type (test) f
f%x = f%x + arg
end function
end
The problematic statement is the default initialization
in the derived type definition inside the elemental function. Is
this allowed ?
Thanks in advance!
Jean Vezina
|