+2018-12-22 Steven G. Kargl <kargl@gcc.gnu.org>
+
+ PR fortran/88169
+ * module.c (mio_namelist): Remove an error condition/message that
+ is contrary to the Fortran standard.
+
2018-12-22 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/85544
mio_namelist (gfc_symbol *sym)
{
gfc_namelist *n, *m;
- const char *check_name;
mio_lparen ();
}
else
{
- /* This departure from the standard is flagged as an error.
- It does, in fact, work correctly. TODO: Allow it
- conditionally? */
- if (sym->attr.flavor == FL_NAMELIST)
- {
- check_name = find_use_name (sym->name, false);
- if (check_name && strcmp (check_name, sym->name) != 0)
- gfc_error ("Namelist %s cannot be renamed by USE "
- "association to %s", sym->name, check_name);
- }
-
m = NULL;
while (peek_atom () != ATOM_RPAREN)
{
2018-12-21 Steven G. Kargl <kargl@gcc.gnu.org>
+ PR fortran/88169
+ * gfortran.dg/pr88169_1.f90: new test.
+ * gfortran.dg/pr88169_2.f90: Ditto.
+ * gfortran.dg/pr88169_3.f90: Ditto.
+
+2018-12-21 Steven G. Kargl <kargl@gcc.gnu.org>
+
PR fortran/69121
* gfortran.dg/ieee/ieee_9.f90: New test.
--- /dev/null
+! { dg-do run }
+module foo_nml
+ implicit none
+ real :: x = -1
+ namelist /foo/ x
+end module
+
+program main
+ use foo_nml, only: bar => foo, x
+ implicit none
+ integer fd
+ x = 42
+ open(newunit=fd, file='tmp.dat', status='replace')
+ write(fd,nml=bar)
+ close(fd)
+ open(newunit=fd, file='tmp.dat', status='old')
+ read(fd,nml=bar)
+ if (x /= 42) stop 1
+ close(fd)
+end program
+! { dg-final { cleanup-modules "foo_nml" } }
--- /dev/null
+! { dg-do run }
+module foo_nml
+ implicit none
+ real :: x = -1
+ namelist /foo/ x
+end module
+!
+! Yes, implicit typing of local variable 'x'.
+!
+program main
+ use foo_nml, only: bar => foo
+ integer fd
+ x = 42
+ open(newunit=fd, file='tmp.dat', status='replace')
+ write(fd,nml=bar)
+ close(fd)
+ open(newunit=fd, file='tmp.dat', status='old')
+ read(fd,nml=bar)
+ close(fd)
+ call bah
+ if (x /= 42) stop 1
+end program
+
+subroutine bah
+ use foo_nml
+ integer fd
+ open(newunit=fd, file='tmp.dat', status='old')
+ read(fd,nml=foo)
+ if (x /= -1) stop 2
+ close(fd, status='delete')
+end subroutine bah
--- /dev/null
+! { dg-do compile }
+! { dg-options "-std=f95" }
+module foo_nml
+ implicit none
+ real :: x = -1
+ namelist /foo/ x
+end module
+
+program main
+ use foo_nml, only: bar => foo, x
+ implicit none
+ real a
+ namelist /bar/a ! { dg-error "already is USE associated" }
+end program
+! { dg-final { cleanup-modules "foo_nml" } }