$ gfortran -v Reading specs from /home/ig25/lib/gcc/i686-pc-linux-gnu/4.0.0/specs Configured with: ../gcc/configure --prefix=/home/ig25 --enable-languages=c,c++,f95 Thread model: posix gcc version 4.0.0 20041120 (experimental) $ cat vary.f90 program main call foo(3.0) contains subroutine foo(a) real, intent(inout) :: a a = a + 3. end subroutine foo end program main $ gfortran vary.f90 $ The compiler should detect that the acutal parameter cannot be intent(inout) in this case.
I assume you are talking about: call foo(3.0) if so confirmed, there should be a warning about this being undefined.
Yes this is a dup of bug 20857. *** This bug has been marked as a duplicate of 20857 ***
Subject: Bug 18578 Author: pault Date: Sun Jan 29 16:31:24 2006 New Revision: 110376 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=110376 Log: 2006-01-29 Paul Thomas <pault@gcc.gnu.org> PR fortran/18578 PR fortran/18579 PR fortran/20857 PR fortran/20885 * interface.c (compare_actual_formal): Error for INTENT(OUT or INOUT) if actual argument is not a variable. 2006-01-29 Paul Thomas <pault@gcc.gnu.org> PR fortran/18578 PR fortran/18579 PR fortran/20857 PR fortran/20885 * gfortran.dg/intent_out_1.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/intent_out_1.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/interface.c trunk/gcc/testsuite/ChangeLog
Subject: Bug 18578 Author: pault Date: Mon Jan 30 05:45:06 2006 New Revision: 110394 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=110394 Log: 2006-01-30 Paul Thomas <pault@gcc.gnu.org> PR fortran/18578 PR fortran/18579 PR fortran/20857 PR fortran/20885 * interface.c (compare_actual_formal): Error for INTENT(OUT or INOUT) if actual argument is not a variable. PR fortran/17911 * expr.c (gfc_check_assign, gfc_check_pointer_assign): Emit error if the lvalue is a use associated procedure. PR fortran/20895 PR fortran/25030 * expr.c (gfc_check_pointer_assign): Emit error if lvalue and rvalue character lengths are not the same. Use gfc_dep_compare_expr for the comparison. * gfortran.h: Add prototype for gfc_dep_compare_expr. * dependency.h: Remove prototype for gfc_dep_compare_expr. 2006-01-30 Paul Thomas <pault@gcc.gnu.org> PR fortran/18578 PR fortran/18579 PR fortran/20857 PR fortran/20885 * gfortran.dg/intent_out_1.f90: New test. PR fortran/17911 * gfortran.dg/procedure_lvalue.f90: New test. PR fortran/20895 PR fortran/25030 * gfortran.dg/char_pointer_assign_2.f90: New test. * gfortran.dg/char_result_1.f90: Correct unequal charlen pointer assignment to be consistent with standard. * gfortran.dg/char_result_2.f90: The same. * gfortran.dg/char_result_8.f90: The same. Added: branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/char_pointer_assign_2.f90 branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/intent_out_1.f90 branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/procedure_lvalue.f90 Modified: branches/gcc-4_1-branch/gcc/fortran/ChangeLog branches/gcc-4_1-branch/gcc/fortran/dependency.h branches/gcc-4_1-branch/gcc/fortran/expr.c branches/gcc-4_1-branch/gcc/fortran/gfortran.h branches/gcc-4_1-branch/gcc/fortran/interface.c branches/gcc-4_1-branch/gcc/testsuite/ChangeLog branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/char_result_1.f90 branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/char_result_2.f90 branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/char_result_8.f90