summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/nullify_1.f
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