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