1C { dg-do compile }
2C PR 18993
3C we didn't match the end of statement following NULLIFY ()
4C this lead to weird error messages
5 subroutine ordern( )
6 real, pointer :: aux(:,:)
7C Nullify pointers
8 nullify(aux)
9C Set default sizes for order N arrays
10 end subroutine ordern
11
12