https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103174
--- Comment #1 from G. Steinmetz <gs...@t-online.de> --- spartan : module m interface module function f() class(*), allocatable :: f end end interface end submodule(m) m2 contains module function f() class(*), allocatable :: f end end