https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109209

--- Comment #9 from Jürgen Reuter <juergen.reuter at desy dot de> ---
(In reply to Jürgen Reuter from comment #4)
>
>   module subroutine t3_set_expand (res_set)
>     class(t3_set_t), intent(inout) :: res_set
>     type(t3_t), dimension(:), allocatable :: history_new
>     integer :: s
>     s = size (res_set%history)
>     allocate (history_new (2 * s))
>     history_new(1:s) = res_set%history(1:s)
>     call move_alloc (history_new, res_set%history)
>   end subroutine t3_set_expand
>   
> end module resonances

Actually, the 'module subroutine' here needs to be just 'subroutine'. gfortran
accepts this, nagfor doesn't.

Reply via email to