toon_1.f   [plain text]

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