The following is non-standard and the compiler should probably generate a warning/error with '-pedantic -std=f95' MODULE TEST CONTAINS SUBROUTINE TT(I) INTEGER, INTENT(inOUT) :: I END SUBROUTINE TT END MODULE TEST USE TEST CALL TT(0) END
Confirmed. As g95 says: "Argument for parameter 'i' at (1) is INTENT(INOUT) and actual argument is not a variable".
*** Bug 25074 has been marked as a duplicate of this bug. ***
*** Bug 20859 has been marked as a duplicate of this bug. ***
These all amount to the same problem. Being a bit more descriptive would also make searching for duplicates easier.
(In reply to comment #4) > These all amount to the same problem. Being a bit more descriptive would also > make searching for duplicates easier. I believe that this is a duplicate of 18578 too. Paul
*** Bug 18578 has been marked as a duplicate of this bug. ***
Subject: Bug 20857 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 20857 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
Fixed on trunk and 4.1. Paul