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