using GNU Fortran 95 (GCC) 4.1.0 20051126 (prerelease) with '-g -pedantic
-std=f95', I get a bad / no diagnostic for the following invalid code:
MDULE M1
CNTAINS
SUBRUTINE S1(F)
INTERFACE
FUNCTIN F()
INTEGER F
END FUNCTIN F
END INTERFACE
END SUBRUTINE S1
END MDULE M1
USE M1
INTEGER :: I
I=1
CALL S1(I)
END

Comment #1 from pault at gcc dot gnu dot org 2006-05-15 18:57
A patch is regtesting right now.
Paul

Comment #2 from patchapp at dberlin dot org 2006-05-15 20:20
Subject: Bug number PR25098
A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is

Comment #3 from patchapp at dberlin dot org 2006-05-28 15:37
Subject: Bug number PR25098
A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is

Comment #4 from pault at gcc dot gnu dot org 2006-06-01 04:35
Subject: Bug 25098

Author: pault
Date: Thu Jun 1 04:35:38 2006
New Revision: 114296

URL:
Log:
2006-06-01 Paul Thomas <pault (AT) gcc (DOT) gnu.org>

PR fortran/25098
PR fortran/25147
* interface.c (compare_parameter): Return 1 if the actual arg
is external and the formal is a procedure.
(compare_actual_formal): If the actual argument is a variable
and the formal a procedure, this an error. If a gsymbol exists
for a procedure of the same name, this is not yet resolved and
the error is cleared.

* trans-intrinsic.c (gfc_conv_associated): Make provision for
zero array length or zero string length contingent on presence
of target, for consistency with standard.

2006-06-01 Paul Thomas <pault (AT) gcc (DOT) gnu.org>

PR fortran/25098
* New test.

PR fortran/25147
* New test.

* gfortran.dg/associated_2.f90: Correct to make consistent with
standard.

Added:

Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/interface.c

trunk/gcc/testsuite/ChangeLog

Comment #5 from pault at gcc dot gnu dot org 2006-06-01 05:56
Subject: Bug 25098

Author: pault
Date: Thu Jun 1 05:56:48 2006
New Revision: 114299

URL:
Log:
2006-06-01 Paul Thomas <pault (AT) gcc (DOT) gnu.org>

PR fortran/25098
PR fortran/25147
* interface.c (compare_parameter): Return 1 if the actual arg
is external and the formal is a procedure.
(compare_actual_formal): If the actual argument is a variable
and the formal a procedure, this an error. If a gsymbol exists
for a procedure of the same name, this is not yet resolved and
the error is cleared.

* trans-intrinsic.c (gfc_conv_associated): Make provision for
zero array length or zero string length contingent on presence
of target, for consistency with standard.

2006-06-01 Paul Thomas <pault (AT) gcc (DOT) gnu.org>

PR fortran/25098
* New test.

PR fortran/25147
* New test.

* gfortran.dg/associated_2.f90: Correct to make consistent with
standard.

Added:

Modified:

Comment #6 from pault at gcc dot gnu dot org 2006-06-01 05:57
Fixed on trunk and 4.1.
Paul