| ! { dg-do compile } | |
| ! | |
| ! PR 41978: [F03] ICE in gfc_conv_expr_descriptor for array PPC assignment | |
| ! | |
| ! Contributed by Daniel Kraft <domob@gcc.gnu.org> | |
| MODULE m | |
| IMPLICIT NONE | |
| TYPE t | |
| PROCEDURE(myproc), POINTER, PASS :: myproc | |
| END TYPE t | |
| CONTAINS | |
| INTEGER FUNCTION myproc (me) | |
| CLASS(t), INTENT(IN) :: me | |
| myproc = 42 | |
| END FUNCTION myproc | |
| END MODULE m | |
| PROGRAM main | |
| USE m | |
| IMPLICIT NONE | |
| TYPE(t) :: arr(2) | |
| arr%myproc => myproc ! { dg-error "must not have the POINTER attribute" } | |
| END PROGRAM main | |