| ! { dg-do run } | |
| ! | |
| ! PR 41629: [OOP] gimplification error on valid code | |
| ! | |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
| type t1 | |
| integer :: comp | |
| end type | |
| type(t1), target :: a | |
| class(t1) :: x | |
| pointer :: x ! This is valid | |
| a%comp = 3 | |
| x => a | |
| print *,x%comp | |
| if (x%comp/=3) STOP 1 | |
| end |