]> git.ipfire.org Git - thirdparty/openembedded/openembedded-core-contrib.git/blob
2e51a991f4af60704fdb1e6ef4cceaa7a7ade1c0
[thirdparty/openembedded/openembedded-core-contrib.git] /
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