diff options
author | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
---|---|---|
committer | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
commit | 554fd8c5195424bdbcabf5de30fdc183aba391bd (patch) | |
tree | 976dc5ab7fddf506dadce60ae936f43f58787092 /gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 | |
download | cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.bz2 cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.xz |
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.
downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.
if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 new file mode 100644 index 000000000..71ab35d11 --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/execute/enum_3.f90 @@ -0,0 +1,57 @@ +! Program to test the initialisation range of enumerators +! and kind values check + +program main + implicit none + + enum, bind (c) + enumerator :: red , yellow =255 , blue + end enum + + enum, bind (c) + enumerator :: r , y = 32767, b + end enum + + enum, bind (c) + enumerator :: aa , bb = 65535, cc + end enum + + enum, bind (c) + enumerator :: m , n = 2147483645, o + end enum + + + if (red /= 0 ) call abort + if (yellow /= 255) call abort + if (blue /= 256) call abort + + if (r /= 0 ) call abort + if (y /= 32767) call abort + if (b /= 32768) call abort + + if (kind (red) /= 4) call abort + if (kind (yellow) /= 4) call abort + if (kind (blue) /= 4) call abort + + if (kind(r) /= 4 ) call abort + if (kind(y) /= 4) call abort + if (kind(b) /= 4) call abort + + if (aa /= 0 ) call abort + if (bb /= 65535) call abort + if (cc /= 65536) call abort + + if (kind (aa) /= 4 ) call abort + if (kind (bb) /= 4) call abort + if (kind (cc) /= 4) call abort + + + if (m /= 0 ) call abort + if (n /= 2147483645) call abort + if (o /= 2147483646) call abort + + if (kind (m) /= 4 ) call abort + if (kind (n) /= 4) call abort + if (kind (o) /= 4) call abort + +end program main |