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