gcc/testsuite/gfortran.dg/associate_7.f03

   1 ! { dg-do run }
   2 ! { dg-options "-std=f2003 -fall-intrinsics" }
   3
   4 ! PR fortran/38936
   5 ! Check association and pointers.
   6
   7 ! Contributed by Daniel Kraft, d@domob.eu.
   8
   9 PROGRAM main
  10   IMPLICIT NONE
  11   INTEGER, TARGET :: tgt
  12   INTEGER, POINTER :: ptr
  13
  14   tgt = 1
  15   ASSOCIATE (x => tgt)
  16     ptr => x
  17     IF (ptr /= 1) CALL abort ()
  18     ptr = 2
  19   END ASSOCIATE
  20   IF (tgt /= 2) CALL abort ()
  21 END PROGRAM main