http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51610
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|REOPENED |NEW
--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> AFAICS, we still get the bogus error:
>
> target :: a, b, c
> 1
> Error: Duplicate TARGET attribute specified at (1)
Reduced test:
type t
end type t
class(t), allocatable :: a(:), b(:), c(:)
! Bogus error: Error: Duplicate TARGET attribute specified
target :: a, b, c
end
There is no error if CLASS is replaced with TYPE or REAL. I still think it
would be better to have a new PR opened for it.
BTW I think the test in comment 1 is invalid due to
...
allocate (a(1), b(1), c(1))
...
class(t), target :: y(3)
class(t) :: x(3)
...
