25 lines
394 B
Fortran
25 lines
394 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 39931: ICE on invalid Fortran 95 code (bad pointer assignment)
|
|
!
|
|
! Contributed by Thomas Orgis <thomas.orgis@awi.de>
|
|
|
|
program point_of_no_return
|
|
|
|
implicit none
|
|
|
|
type face_t
|
|
integer :: bla
|
|
end type
|
|
|
|
integer, pointer :: blu
|
|
type(face_t), pointer :: face
|
|
|
|
allocate(face)
|
|
allocate(blu)
|
|
|
|
face%bla => blu ! { dg-error "Pointer assignment to non-POINTER" }
|
|
|
|
end program
|
|
|