[Bug fortran/126781] New: NUM_IMAGES intrinsic missing keyword arguments

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

            Bug ID: 126781
           Summary: NUM_IMAGES intrinsic missing keyword arguments
           Product: gcc
           Version: 16.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: dobonachea at lbl dot gov
                CC: damian at archaeologic dot codes
  Target Milestone: ---

gfortran 16.2.0 is missing support for keyword arguments on the NUM_IMAGES
intrinsic.

Demonstration program, which compiles and executes correctly on NAG 7.2:
---------------------------------------------------------
cgpu$ cat num_images.F90                      
program test_num_images
  use iso_fortran_env
  implicit none

  integer :: res(5)

  if (this_image() == 1) then

    ! num_images works without teams:    
    res(1) = num_images()  ! works

    ! or with positional arguments:
    res(2) = num_images(GET_TEAM())
    res(3) = num_images(TEAM_NUMBER()) 

    ! keyword arguments are not correctly implemented:
    res(4) = num_images(TEAM=GET_TEAM())
    res(5) = num_images(TEAM_NUMBER=TEAM_NUMBER()) 

    print *, "------------------------------------------------"
    print *, "Results   : ", res

  end if

end program test_num_images

cgpu$ gfortran -c -fcoarray=lib num_images.F90
num_images.F90:17:13:

   17 |     res(4) = num_images(TEAM=GET_TEAM())
      |             1
Error: Cannot find keyword named 'team' in call to 'num_images' at (1)
num_images.F90:18:13:

   18 |     res(5) = num_images(TEAM_NUMBER=TEAM_NUMBER())
      |             1
Error: Cannot find keyword named 'team_number' in call to 'num_images' at (1)

cgpu$ gfortran --version
GNU Fortran (GCC) 16.2.0
Copyright (C) 2026 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

---------------------------------------------------------