2 ! tests the patch for PR30870, in which the generic XX was rejected
3 ! because the specific with the same name was not looked for.
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
34 IF (I
.NE
.7) CALL ABORT()
36 ! { dg-final { cleanup-modules "test too" } }