1! { dg-do run }
2! PR 23428:  Inquire(iolength) used to give the wrong result.
3program 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
14end program main
15