(j3.2006) defining a type with no components

[Dan Nagle]

Hi,

Following this morning?s discussion, consider:

type :: no_comp
end type no_comp

function foo() result( bar)
type( no_comp) :: bar
end function foo

A compiler that warned that bar is not defined
upon return is spurious?  No?

--

Cheers!
Dan Nagle