mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
26 lines
562 B
Fortran
26 lines
562 B
Fortran
! { dg-do compile }
|
|
! PR fortran/45786 - operators were not correctly marked as public
|
|
! if the alternative form was used.
|
|
! Test case contributed by Neil Carlson.
|
|
module foo_type
|
|
private
|
|
public :: foo, operator(==)
|
|
type :: foo
|
|
integer :: bar
|
|
end type
|
|
interface operator(.eq.)
|
|
module procedure eq_foo
|
|
end interface
|
|
contains
|
|
logical function eq_foo (a, b)
|
|
type(foo), intent(in) :: a, b
|
|
eq_foo = (a%bar == b%bar)
|
|
end function
|
|
end module
|
|
|
|
subroutine use_it (a, b)
|
|
use foo_type
|
|
type(foo) :: a, b
|
|
print *, a == b
|
|
end subroutine
|