diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-10-19 01:28:50 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-10-19 01:28:50 +0000 |
| commit | a11930ba8d19cc26848dc06d4a2571642af735b9 (patch) | |
| tree | 57b515208fe72f75dd40e6e639f1fde700dcf61a /gcc/fortran/trans-io.c | |
| parent | 21016e43e2ead79d6dec8827a8c66339f467813b (diff) | |
| download | gcc-a11930ba8d19cc26848dc06d4a2571642af735b9.zip gcc-a11930ba8d19cc26848dc06d4a2571642af735b9.tar.gz gcc-a11930ba8d19cc26848dc06d4a2571642af735b9.tar.bz2 | |
io.h: Remove definition of the BT enumerator.
2010-10-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io/io.h: Remove definition of the BT enumerator.
* libgfortran.h: Replace GFC_DTYPE enumerator with BT.
* intrinsics/iso_c_generated_procs.c: Likewise
* intrinsics/date_and_time.c: Likewise.
* intrinsics/iso_c_binding.c: Likewise.
* io/list_read.c: Likewise.
* io/transfer.c: Likewise.
* io/write.c: Likewise.
2010-10-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.h: Remove definition of bt enumerator.
* libgfortran.h: Add bt enumerator type alighned with defintion.
Remove the dtype enumerator, no longer used.
previously given in libgfortran/io.h
* trans-types.c: Use new bt enumerator.
* trans-io.c: Likewise.
From-SVN: r165675
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 6a3428a..2ac3e5c 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -1572,33 +1572,7 @@ transfer_namelist_element (stmtblock_t * block, const char * var_name, } else { - itype = GFC_DTYPE_UNKNOWN; - - switch (ts->type) - - { - case BT_INTEGER: - itype = GFC_DTYPE_INTEGER; - break; - case BT_LOGICAL: - itype = GFC_DTYPE_LOGICAL; - break; - case BT_REAL: - itype = GFC_DTYPE_REAL; - break; - case BT_COMPLEX: - itype = GFC_DTYPE_COMPLEX; - break; - case BT_DERIVED: - itype = GFC_DTYPE_DERIVED; - break; - case BT_CHARACTER: - itype = GFC_DTYPE_CHARACTER; - break; - default: - gcc_unreachable (); - } - + itype = ts->type; dtype = IARG (itype << GFC_DTYPE_TYPE_SHIFT); } |