gcc/testsuite/gfortran.dg/pr84784.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=lib -fdefault-integer-8" }
   3 ! { dg-require-effective-target fortran_integer_16 }
   4 ! PR fortran/84784 - ICEs: verify_gimple failed with -fdefault-integer-8
   5
   6   use iso_fortran_env, only : team_type, STAT_FAILED_IMAGE
   7   implicit none
   8   type(team_type) :: team
   9   integer         :: new_team
  10   new_team = mod(this_image(),2)+1
  11   form team (new_team,team)
  12     change team (team)
  13     if (team_number() /= new_team) STOP 1
  14   end team
  15   if (image_status (1) == STAT_FAILED_IMAGE) ERROR STOP "cannot recover"
  16   if (runtime_popcnt(0_16) /= 0) STOP 2
  17   if (runtime_poppar(1_16) /= 1) STOP 3
  18 contains
  19   integer function runtime_popcnt (i)
  20     integer(kind=16), intent(in) :: i
  21     runtime_popcnt = popcnt(i)
  22   end function
  23   integer function runtime_poppar (i)
  24     integer(kind=16), intent(in) :: i
  25     runtime_poppar = poppar(i)
  26   end function
  27 end