Hi Paul,
While an error is correctly generated, the wording of
the error message iand locus seems odd. I have a
code that has
module foo
implicit none
private
generic, public :: bar => bar
generic, private :: bar => bah
...
end module
% gfcx -c a_gen4.F90
a_gen4.F90:8:30:
8 | generic, private :: bar => bah
| 1
Error: Binding at (1) must have the same access as already defined
binding 'bar'
I sould have expected something along the lines,
a_gen4.F90:8:30:
8 | generic, private :: bar => bah
| 1
Error: access-spec at (1) conflicts with previoua access-specs
or
Error: PRIVATE access at (1) conflicts with previouai PUBLIC access
--
steve
