gcc/testsuite/gfortran.dg/associate_49.f90

   1 ! { dg-do run }
   2 !
   3 ! Test the fix for PR91588, in which the declaration of 'a' caused
   4 ! an ICE.
   5 !
   6 ! Contributed by Gerhardt Steinmetz  <gscfq@t-online.de>
   7 !
   8 program p
   9    character(4), parameter :: parm = '7890'
  10    associate (z => '1234')
  11       block
  12          integer(len(z)) :: a
  13          if (kind(a) .ne. 4) stop 1
  14       end block
  15    end associate
  16    associate (z => '123')
  17       block
  18          integer(len(z)+1) :: a
  19          if (kind(a) .ne. 4) stop 2
  20       end block
  21    end associate
  22    associate (z => 1_8)
  23       block
  24          integer(kind(z)) :: a
  25          if (kind(a) .ne. 8) stop 3
  26       end block
  27    end associate
  28    associate (z => parm)
  29       block
  30          integer(len(z)) :: a
  31          if (kind(a) .ne. 4) stop 4
  32       end block
  33    end associate
  34 end