This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: PR32634 -- reverted patch, gfortran.dg/interface_16.f90 failure


This is a fix relative to the unreverted case - it turned out to be trivial.

Thanks for helping me out Daniel.

Regtested on Cygwin_NT/amd64

Paul

Index: /svn/trunk/gcc/fortran/module.c
===================================================================
*** /svn/trunk/gcc/fortran/module.c (revision 126509)
--- /svn/trunk/gcc/fortran/module.c (working copy)
*************** write_generic (gfc_symbol *sym)
*** 3961,3967 ****
      at least once.  */
   nuse = number_use_names (sym->name);
   if (nuse == 0)
!     nuse = 1;

   for (j = 1; j <= nuse; j++)
     {
--- 3961,3970 ----
      at least once.  */
   nuse = number_use_names (sym->name);
   if (nuse == 0)
!     {
!       mio_symbol_interface (&sym->name, &sym->module, &sym->generic);
!       return;
!     }

   for (j = 1; j <= nuse; j++)
     {


! { dg-do compile } ! Tests the fix for PR32727, which was a regression caused ! by the fix for PR32634 ! ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> ! MODULE kinds INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND ( 14, 200 ) END MODULE kinds

MODULE util
 USE kinds,                           ONLY: dp
 INTERFACE sort
    MODULE PROCEDURE sort2
 END INTERFACE
CONTAINS
 SUBROUTINE sort2 ( )
 END SUBROUTINE sort2
END MODULE util

MODULE graphcon
 USE util,                            ONLY: sort
END MODULE graphcon
! { dg-final { cleanup-modules "kinds util graphcon" } }


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]