gcc/testsuite/gfortran.dg/nullify_1.f


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