blob: ce84a3957d00da03bbbba443a8b1a19ac8266926 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! { dg-do compile }
!
! PR 49074: [OOP] Defined assignment w/ CLASS arrays: Incomplete error message
!
! Contribute by Jerry DeLisle <jvdelisle@gcc.gnu.org>
module foo
type bar
contains
generic :: assignment (=) => assgn
procedure :: assgn
end type
contains
elemental subroutine assgn (a, b)
class (bar), intent (inout) :: a
class (bar), intent (in) :: b
end subroutine
end module
use foo
type (bar) :: foobar(2)
foobar = bar() ! { dg-error "currently not implemented" }
end
! { dg-final { cleanup-modules "foo" } }
|