gcc-13.2.0/

c { dg-do compile }
      SUBROUTINE AAP(NOOT)
      DIMENSION NOOT(*)
      END