2 IF (T1(1.0,1.0) .NE
. (1.0,1.0) ) CALL ABORT()
3 IF (T1(1.0) .NE
. (1.0,0.0)) CALL ABORT()
4 IF (M1(1,2,3) .NE
. 3) CALL ABORT()
5 IF (M1(1,2,A4
=4) .NE
. 4) CALL ABORT()
8 COMPLEX FUNCTION T1(X
,Y
)
14 INTEGER FUNCTION M1(A1
,A2
,A3
,A4
)
16 INTEGER, OPTIONAL
:: A3
,A4