diff options
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 |