gcc/testsuite/gfortran.dg/index_5.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/97896
   4 ! An ICE occured with INDEX when the KIND argument was present
   5 ! because of a mismatch between the number of arguments expected
   6 ! during the scalarization process and the number of arguments actually
   7 ! used.
   8 !
   9 ! Test contributed by Harald Anlauf <anlauf@gcc.gnu.org>, based on an initial
  10 ! submission by G. Steinmetz <gscfq@t-online.de>.
  11
  12 program p
  13   implicit none
  14   logical    :: a(2)
  15   integer    :: b(2)
  16   integer(8) :: d(2)
  17   b = index ('xyxyz','yx', back=a)
  18   b = index ('xyxyz','yx', back=a, kind=4)
  19   d = index ('xyxyz','yx', back=a, kind=8)
  20   b = index ('xyxyz','yx', back=a, kind=8)
  21   d = index ('xyxyz','yx', back=a, kind=4)
  22   b = index ('xyxyz','yx',      a,      4)
  23   d = index ('xyxyz','yx',      a,      8)
  24 end
  25