mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
30 lines
552 B
Fortran
30 lines
552 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR fortran/54195
|
|
! The compiler used to diagnose a duplicate entity in the assignment interface
|
|
! because NC was resolved twice.
|
|
!
|
|
! Contributed by Damian Rouson <damian@rouson.net>
|
|
|
|
module import_clashes_with_generic
|
|
|
|
type ,abstract :: foo
|
|
contains
|
|
procedure :: unary
|
|
generic :: operator(-) => unary
|
|
end type
|
|
|
|
abstract interface
|
|
integer function bar()
|
|
import :: foo
|
|
end function
|
|
end interface
|
|
|
|
contains
|
|
|
|
integer function unary(rhs)
|
|
class(foo) ,intent(in) :: rhs
|
|
end function
|
|
|
|
end module
|