gcc/testsuite/gfortran.dg/associate_30.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR67543
   4 !
   5 ! Contributed by Gerhard Steinmetz  <gerhard.steinmetz.fortran@t-online.de>
   6 !
   7    subroutine s1
   8       associate (x => null())   ! { dg-error "cannot be NULL()" }
   9       end associate
  10    end subroutine
  11
  12    subroutine s2
  13       associate (x => [null()]) ! { dg-error "has no type" }
  14       end associate
  15    end subroutine