fortran/
PR 30235
* interface.c (compare_actual_formal): check for
alternate returns when iterating over non-present
arguments.
testsuite/
PR 30235
* gfortran.dg/altreturn_2.f90: new test.
From-SVN: r120447
+2007-01-04 Brooks Moses <brooks.moses@codesourcery.com>
+
+ PR 30235
+ * interface.c (compare_actual_formal): check for
+ alternate returns when iterating over non-present
+ arguments.
+
2007-01-04 Brooks Moses <brooks.moses@codesourcery.com>
* invoke.texi: Update manpage copyright to include 2007.
{
if (new[i] != NULL)
continue;
+ if (f->sym == NULL)
+ {
+ if (where)
+ gfc_error ("Missing alternate return spec in subroutine call at %L",
+ where);
+ return 0;
+ }
if (!f->sym->attr.optional)
{
if (where)
+2006-01-04 Brooks Moses <brooks.moses@codesourcery.com>
+
+ PR 30235
+ * gfortran.dg/altreturn_2.f90: new test.
+
2007-01-04 Tom Tromey <tromey@redhat.com>
PR preprocessor/28165:
--- /dev/null
+! { dg-do compile }
+ program altreturn_2
+ call foo() ! { dg-error "Missing alternate return" }
+ contains
+ subroutine foo(*)
+ return
+ end subroutine
+ end program