Fortran函數多態性

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）在這崩潰。