robotux
/
rt_gccstream
1
0
Fork 0
Code Issues Pull Requests Releases Activity
rt_gccstream/gcc/testsuite/gfortran.dg/char_decl_2.f90

5 lines
95 B
Fortran
Raw Permalink Blame History

! { dg-do run }
character (kind=kind("a")) :: u
if (kind(u) /= kind("a")) call abort
end
Reference in New Issue View Git Blame Copy Permalink