gcc/testsuite/gfortran.dg/proc_ptr_53.f90

   1 ! { dg-do compile }
   2 ! PR fortran/97245 - ASSOCIATED intrinsic did not recognize a
   3 !                    pointer variable the second time it is used
   4
   5 MODULE formulaciones
   6   IMPLICIT NONE
   7
   8   ABSTRACT INTERFACE
   9      SUBROUTINE proc_void()
  10      END SUBROUTINE proc_void
  11   end INTERFACE
  12
  13   PROCEDURE(proc_void), POINTER :: pADJSensib => NULL()
  14
  15 CONTAINS
  16
  17   subroutine calculo()
  18     PROCEDURE(proc_void), POINTER :: otherprocptr => NULL()
  19
  20     IF (associated(pADJSensib)) THEN
  21        CALL pADJSensib ()
  22     ENDIF
  23     IF (associated(pADJSensib)) THEN    ! this was erroneously rejected
  24        CALL pADJSensib ()
  25     END IF
  26
  27     IF (associated(otherprocptr)) THEN
  28        CALL otherprocptr ()
  29     ENDIF
  30     IF (associated(otherprocptr)) THEN
  31        CALL otherprocptr ()
  32     END IF
  33   end subroutine calculo
  34
  35 END MODULE formulaciones