PROGRAM Sinonimi
	IMPLICIT NONE
	INTERFACE
		SUBROUTINE sub2(b)
			REAL, DIMENSION(:,:), POINTER :: b
		END SUBROUTINE sub2
	END INTERFACE
	REAL, DIMENSION(:,:), POINTER :: p
	ALLOCATE (p(50, 50))
	CALL sub1(p)
	CALL sub2(p)
END PROGRAM Sinonimi