32 lines
564 B
Fortran
32 lines
564 B
Fortran
! { 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
|
|
|
|
! { dg-final { cleanup-modules "m" } }
|