| C { dg-do compile } | |
| C PR 18993 | |
| C we didn't match the end of statement following NULLIFY () | |
| C this lead to weird error messages | |
| subroutine ordern( ) | |
| real, pointer :: aux(:,:) | |
| C Nullify pointers | |
| nullify(aux) | |
| C Set default sizes for order N arrays | |
| end subroutine ordern | |