Mercurial > hg > CbC > CbC_gcc

comparison gcc/fortran/trans-io.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* IO Code translation/library interface 1 /* IO Code translation/library interface
2 Copyright (C) 2002-2018 Free Software Foundation, Inc. 2 Copyright (C) 2002-2020 Free Software Foundation, Inc.
3 Contributed by Paul Brook 3 Contributed by Paul Brook
4 4
5 This file is part of GCC. 5 This file is part of GCC.
6 6
7 GCC is free software; you can redistribute it and/or modify it under 7 GCC is free software; you can redistribute it and/or modify it under
2405 2405
2406 break; 2406 break;
2407 2407
2408 case_bt_struct: 2408 case_bt_struct:
2409 case BT_CLASS: 2409 case BT_CLASS:
2410 if (ts->u.derived->components == NULL)
2411 return;
2412 if (gfc_bt_struct (ts->type) || ts->type == BT_CLASS) 2410 if (gfc_bt_struct (ts->type) || ts->type == BT_CLASS)
2413 { 2411 {
2414 gfc_symbol *derived; 2412 gfc_symbol *derived;
2415 gfc_symbol *dtio_sub = NULL; 2413 gfc_symbol *dtio_sub = NULL;
2416 /* Test for a specific DTIO subroutine. */ 2414 /* Test for a specific DTIO subroutine. */