fortran issue

 0
down vote
favorite


I am using intel fortran compiler. In old compaq visual fortran this code worked properly:

SUBROUTINE SOMESUB(N,D)
IMPLICIT NONE
INTEGER N,I
REAL(4) D(N) !D - array of N elements
DO i=1,N
   D(i)=1.
END DO
RETURN
END SUBROUTINE

PROGRAM MAIN
REAL(4) A !Just real variable
CALL SOMESUB(1,A)

Now in intel fortran that code is not working. I tried use CALL SOMESUB(1,[A]), but it also did not work. How I can use one subroutine for passing arrays and general variables with intel fortran,desirably with least changes in legacy code?