| ! { dg-do compile } | |
| ! PR fortran/97245 - ASSOCIATED intrinsic did not recognize a | |
| ! pointer variable the second time it is used | |
| MODULE formulaciones | |
| IMPLICIT NONE | |
| ABSTRACT INTERFACE | |
| SUBROUTINE proc_void() | |
| END SUBROUTINE proc_void | |
| end INTERFACE | |
| PROCEDURE(proc_void), POINTER :: pADJSensib => NULL() | |
| CONTAINS | |
| subroutine calculo() | |
| PROCEDURE(proc_void), POINTER :: otherprocptr => NULL() | |
| IF (associated(pADJSensib)) THEN | |
| CALL pADJSensib () | |
| ENDIF | |
| IF (associated(pADJSensib)) THEN ! this was erroneously rejected | |
| CALL pADJSensib () | |
| END IF | |
| IF (associated(otherprocptr)) THEN | |
| CALL otherprocptr () | |
| ENDIF | |
| IF (associated(otherprocptr)) THEN | |
| CALL otherprocptr () | |
| END IF | |
| end subroutine calculo | |
| END MODULE formulaciones |