Cross Reference: char_decl_2.f90
xref
: /
haiku-buildtools
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
char_decl_2.f90
Home
History
Annotate
Annotate
Line#
Navigate
Raw
Download
only in
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
1
! { dg-do run }
2
character
(
kind
=
kind
(
"a"
)) :: u
3
if
(
kind
(u) /=
kind
(
"a"
))
call
abort
4
end
5