Полиморфизм функции Фортрана

Question

Можно ли получить функцию, результатом которой является неограниченная полиморфная переменная? Я хотел бы иметь возможность выводить либо число, либо строку из функции. Тем не менее, строка должна быть одним размерным массивом.

Включение строки, связанной с строкой, приведет к возникновению проблем при сканировании числа.

Class (*), Dimension (:) :: t 

Answer 1

я, что это такой пример:

select type (x=>f()) 
    type is (integer) 
     print *,x 
    end select 

contains 

    function f() 
    class(*), allocatable :: f 
    allocate(f, source=10) 
    end function 

end 

К сожалению, оба мои компиляторы (gfortran 4,10, ifort 14) аварии на этом.