code.ossystems Code Review - openembedded-core.git/blob

   1 From cb79606d4958a3f3df1adfcc00b641e3b8089819 Mon Sep 17 00:00:00 2001
   2 From: burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
   3 Date: Thu, 28 Apr 2011 18:43:16 +0000
   4 Subject: [PATCH 193/200] 2011-04-28  Tobias Burnus  <burnus@net-b.de>
   5
   6         PR fortran/48788
   7         * resolve.c (resolve_global_procedure): Error recovery -
   8         avoid segfault for (non)character-returning functions.
   9
  10
  11 2011-04-28  Tobias Burnus  <burnus@net-b.de>
  12
  13         PR fortran/48788
  14         * gfortran.dg/whole_file_34.f90: New.
  15
  16
  17
  18 git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_6-branch@173126 138bc75d-0d04-0410-961f-82ee72b054a4
  19
  20 index 1fef22b..75e4697 100644
  21 --- a/gcc/fortran/resolve.c
  22 +++ b/gcc/fortran/resolve.c
  23 @@ -2187,7 +2187,7 @@ resolve_global_procedure (gfc_symbol *sym, locus *where,
  24
  25           /* F2003, 12.3.1.1 (3c); F2008, 12.4.2.2 (3c)  */
  26           if (sym->ts.type == BT_CHARACTER && sym->attr.if_source != IFSRC_IFBODY
  27 -             && def_sym->ts.u.cl->length != NULL)
  28 +             && def_sym->ts.type == BT_CHARACTER && def_sym->ts.u.cl->length != NULL)
  29             {
  30               gfc_charlen *cl = sym->ts.u.cl;
  31
  32 new file mode 100644
  33 index 0000000..9b421e0
  34 --- /dev/null
  35 +++ b/gcc/testsuite/gfortran.dg/whole_file_34.f90
  36 @@ -0,0 +1,12 @@
  37 +! { dg-do compile }
  38 +!
  39 +! PR fortran/48788
  40 +!
  41 +! Contributed by Zdenek Sojka
  42 +!
  43 +function foo ()
  44 +end function foo
  45 +  character(4), external :: foo ! { dg-error "Return type mismatch of function" }
  46 +  character(4) :: x
  47 +  x = foo ()
  48 +END
  49 --
  50 1.7.0.4
  51