MODULE auto_mod
    INTEGER :: n
    CONTAINS
       SUBROUTINE auto_sub
          REAL, DIMENSION(n) :: w
          WRITE(*,*) 'Bounds and size of w: ', &
			&	LBOUND(w), UBOUND(w), SIZE(w)
       END SUBROUTINE auto_sub
END MODULE auto_mod

PROGRAM auto_array
    USE auto_mod
    INTEGER :: i 
    DO i = 1,10
        n=i
		CALL auto_sub
    ENDDO 
END PROGRAM auto_array