[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g77.f-torture / compile / toon_1.f

      SUBROUTINE AAP(NOOT)
      DIMENSION NOOT(*)
      END