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