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

Paul Thomas <pault at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever confirmed|0                           |1
                 CC|                            |pault at gcc dot gnu.org
   Last reconfirmed|                            |2026-05-28

--- Comment #1 from Paul Thomas <pault at gcc dot gnu.org> ---
Confirmed

Adding a generic statement in the module:
    generic :: subx => sub1, sub2

and changing the main program to:
program bar
use foo
implicit none

    type(ta) :: a

    call subx(a, 1 ) 
    print*, a%i

    call subx(a, [1,2] ) 
    print*, a%i

end

works as expected.

Paul

Reply via email to