blob: 29dd08d9f75958241c9d0b81422987c8549d793e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { 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
|
