?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR ipa/83051
[official-gcc.git] / gcc / testsuite / gfortran.dg / char_decl_2.f90
blobffce6b158e26e7532de365d8b84a03002e5c750a
1 ! { dg-do run }
2 character (kind=kind("a")) :: u
3 if (kind(u) /= kind("a")) call abort
4 end
Mirror of the offical gcc git repository hosted at gcc.gnu.org