From 642970a3d2bb5bf9632e77d569929f8fc4e7ab84 Mon Sep 17 00:00:00 2001 From: burnus Date: Sat, 7 May 2011 05:38:08 +0000 Subject: 2011-05-07 Tobias Burnus PR fortran/18918 PR fortran/48919 * trans.h: Move gfc_init_coarray_decl prototype ... * gfortran.h: ... to here. * parse.c (translate_all_program_units): Call * gfc_init_coarray_decl. (gfc_parse_file): Update translate_all_program_units call. * trans-decl.c (gfc_init_coarray_decl): Fix variable * declaration, new argument whether DECL_EXTERNAL should be used. (create_main_function): Update gfc_init_coarray_decl call. * trans-intrinsic.c (trans_this_image, trans_image_index, conv_intrinsic_cobound): Ditto. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@173528 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/trans.h | 3 --- 1 file changed, 3 deletions(-) (limited to 'gcc/fortran/trans.h') diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 7bf58e493d6..2b06d80a942 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -449,9 +449,6 @@ bool gfc_get_module_backend_decl (gfc_symbol *); /* Return the variable decl for a symbol. */ tree gfc_get_symbol_decl (gfc_symbol *); -/* Initialize coarray global variables. */ -void gfc_init_coarray_decl (void); - /* Build a static initializer. */ tree gfc_conv_initializer (gfc_expr *, gfc_typespec *, tree, bool, bool, bool); -- cgit v1.2.1