hppa64: Fix fmt_f_default_field_width_3.f90 and fmt_g_default_field_width_3.f90

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr95980_2.f90

! { dg-do compile }
! PR fortran/95980 - ICE in get_unique_type_string, at fortran/class.c:485

program p
  type t
     integer :: a
  end type t
  class(t) :: x         ! { dg-error "must be dummy, allocatable or pointer" }
  select type (y => x)
  end select
end