| ! { dg-do compile } | |
| ! | |
| ! A null dereference fixed | |
| ! | |
| ! Contributed by Daniel Otero <canu7@yahoo.es> | |
| ! | |
| subroutine foo (rvec) | |
| TYPE vec_rect_2D_real_acc | |
| INTEGER :: arr | |
| END TYPE | |
| CLASS(vec_rect_2D_real_acc) rvec | |
| ASSOCIATE (arr=>rvec%arr) | |
| call bar(arr*arr) | |
| end associate | |
| end |