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