| ! { 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 |
