gcc/testsuite/gfortran.dg/inquire-complex.f90

   1 ! { dg-do run }
   2 ! PR 23428:  Inquire(iolength) used to give the wrong result.
   3 program main
   4   implicit none
   5   integer s4, s8
   6
   7   complex(kind=8) c8
   8   complex(kind=4) c4
   9
  10   inquire (iolength=s4) c4
  11   inquire (iolength=s8) c8
  12   if (s4 /= 8 .or. s8 /= 16) call abort
  13
  14 end program main