From 623d8e6272d915e76f1d607a95db9d1624cec572 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 21 Jul 2024 14:58:54 +0200 Subject: Initial version - add do-nothing -funsigned option and BT_UNSIGNED. --- gcc/fortran/expr.cc | 3 +++ gcc/fortran/lang.opt | 4 ++++ gcc/fortran/trans-decl.cc | 4 ++++ gcc/fortran/trans-expr.cc | 4 ++++ 4 files changed, 15 insertions(+) (limited to 'gcc') diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc index be138d1..8de694e 100644 --- a/gcc/fortran/expr.cc +++ b/gcc/fortran/expr.cc @@ -350,6 +350,9 @@ gfc_copy_expr (gfc_expr *p) strncpy (q->boz.str, p->boz.str, p->boz.len); break; + case BT_UNSIGNED: + gfc_internal_error ("Unsigned not yet implemented"); + case BT_PROCEDURE: case BT_VOID: /* Should never be reached. */ diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index 5efd4a0..320c317 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -784,6 +784,10 @@ frepack-arrays Fortran Var(flag_repack_arrays) Copy array sections into a contiguous block on procedure entry. +funsigned +Fortran Var(flag_unsigned) +Experimental unsigned numbers. + fcoarray= Fortran RejectNegative Joined Enum(gfc_fcoarray) Var(flag_coarray) Init(GFC_FCOARRAY_NONE) -fcoarray= Specify which coarray parallelization should be used. diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index e6ac7f2..436a405 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -7060,6 +7060,10 @@ gfc_conv_cfi_to_gfc (stmtblock_t *init, stmtblock_t *finally, type = (sym->ts.u.derived->intmod_sym_id == ISOCBINDING_FUNPTR ? CFI_type_cfunptr : CFI_type_cptr); break; + + case BT_UNSIGNED: + gfc_internal_error ("Unsigned not yet implemented"); + case BT_ASSUMED: case BT_CLASS: case BT_PROCEDURE: diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index d9eb333..d431ed5 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -5822,6 +5822,10 @@ gfc_conv_gfc_desc_to_cfi_desc (gfc_se *parmse, gfc_expr *e, gfc_symbol *fsym) } else gcc_unreachable (); + + case BT_UNSIGNED: + gfc_internal_error ("Unsigned not yet implemented"); + case BT_PROCEDURE: case BT_HOLLERITH: case BT_UNION: -- cgit v1.1