5 lines
95 B
Fortran
5 lines
95 B
Fortran
|
! { dg-do run }
|
||
|
character (kind=kind("a")) :: u
|
||
|
if (kind(u) /= kind("a")) call abort
|
||
|
end
|