blob: abf68c969ba91c462c595df136917eff4f084a8b (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
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
|
