OSDN Git Service

* trans.c (trans_code): Set backend locus early.
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 14 May 2010 07:40:06 +0000 (07:40 +0000)
committerMasaki Muranaka <monaka@monami-software.com>
Sun, 23 May 2010 05:08:09 +0000 (14:08 +0900)
* trans-decl.c (gfc_get_fake_result_decl): Use source location
of the function instead of current input_location.

* gfortran.dg/gomp/pr44036-1.f90: Adjust.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@159388 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-decl.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/gomp/pr44036-1.f90

index ef1031a..c766d40 100644 (file)
@@ -1,3 +1,9 @@
+2010-05-14  Jakub Jelinek  <jakub@redhat.com>
+
+       * trans.c (trans_code): Set backend locus early.
+       * trans-decl.c (gfc_get_fake_result_decl): Use source location
+       of the function instead of current input_location.
+
 2010-05-13  Daniel Franke  <franke.daniel@gmail.com>
 
         PR fortran/35779
index 64d87ca..4f0256a 100644 (file)
@@ -2283,11 +2283,11 @@ gfc_get_fake_result_decl (gfc_symbol * sym, int parent_flag)
               IDENTIFIER_POINTER (DECL_NAME (this_function_decl)));
 
       if (!sym->attr.mixed_entry_master && sym->attr.function)
-       decl = build_decl (input_location,
+       decl = build_decl (DECL_SOURCE_LOCATION (this_function_decl),
                           VAR_DECL, get_identifier (name),
                           gfc_sym_type (sym));
       else
-       decl = build_decl (input_location,
+       decl = build_decl (DECL_SOURCE_LOCATION (this_function_decl),
                           VAR_DECL, get_identifier (name),
                           TREE_TYPE (TREE_TYPE (this_function_decl)));
       DECL_ARTIFICIAL (decl) = 1;
index 6320390..6a9bec1 100644 (file)
@@ -1,3 +1,7 @@
+2010-05-14  Jakub Jelinek  <jakub@redhat.com>
+
+       * gfortran.dg/gomp/pr44036-1.f90: Adjust.
+
 2010-05-14  Shujing Zhao  <pearly.zhao@oracle.com>
 
        PR c++/30566
index e856578..a4633a3 100644 (file)
@@ -12,7 +12,7 @@ subroutine foo(a, b)
   x = a(4)
 !$omp end parallel
 !$omp parallel default(none) private (x)       ! { dg-error "enclosing parallel" }
-  x = b(5)                                     ! { dg-error "not specified in" "" { target *-*-* } 11 }
+  x = b(5)                                     ! { dg-error "not specified in" }
 !$omp end parallel
 !$omp parallel default(none) private (x)
   x = c(6)