1! { dg-do compile }
2!
3! PR 39931: ICE on invalid Fortran 95 code (bad pointer assignment)
4!
5! Contributed by Thomas Orgis <thomas.orgis@awi.de>
6
7program point_of_no_return
8
9implicit none
10
11type face_t
12  integer :: bla
13end type
14
15integer, pointer :: blu
16type(face_t), pointer :: face
17
18allocate(face)
19allocate(blu)
20
21face%bla => blu  ! { dg-error "Non-POINTER in pointer association context" }
22
23end program
24
25