toon_1.f
[
plain text
]
c { dg-do compile }
SUBROUTINE
AAP(NOOT)
DIMENSION
NOOT(*)
END