------- Comment #1 from burnus at gcc dot gnu dot org  2007-08-14 21:24 -------
Extended example (rejects-valid + accepts-invalid):
(Overlaps partially with PR31298)

module a
 implicit none
interface operator(.op.)
  module procedure sub
end interface
contains
  function sub(i)
    integer :: sub
    integer,intent(in) :: i
    sub = -i
  end function sub
end module a

program test
! works, but shouldn't
use a, only: operator(.sub.), operator(.my.) => operator(.sub.)
!
! Does not work, but should:
!use a, only: operator(.op.), operator(.my.) => operator(.op.)
!Error: Symbol 'op' referenced at (1) not found in module 'a'
end program test


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33072

Reply via email to