[Bug fortran/44232] New: function result with pointer to strided component of argument

[Bug fortran/44232] New: function result with pointer to strided component of argument

[Thomas dot L dot Clune at nasa dot gov]

(System/GCC parameters and compiler error messages given below)
Minimal Fortran reproducer:

module M_mod
  implicit none
  private

  public :: M_type
  public :: getKeys

  type M_type
    character(len=10) :: key
  end type M_type

contains

  subroutine getKeys(this)
    type (M_type), target :: this(:)
    character(len=10), pointer :: keys(:)

    keys => this(:)%key
  end subroutine getKeys

end module M_mod


Produces an internal compiler error:

bash-3.2$ gfortran -v -save-temps -c t.F90
Using built-in specs.
Target: i386-apple-darwin8.10.1
Configured with: /tmp/gfortran-20090604/ibin/../gcc/configure
--prefix=/usr/local/gfortran --enable-languages=c,fortran
--with-gmp=/tmp/gfortran-20090604/gfortran_libs --enable-bootstrap
Thread model: posix
gcc version 4.5.0 20090604 (experimental) [trunk revision 148180] (GCC) 
COLLECT_GCC_OPTIONS='-mmacosx-version-min=10.5.8' '-v' '-save-temps' '-c'
'-mtune=generic'
 /usr/local/gfortran/libexec/gcc/i386-apple-darwin8.10.1/4.5.0/f951 t.F90 -cpp
/var/folders/e4/e484tj9PEd4Jm8SyiqE9Ak5hB2U/-Tmp-//ccjLAEQe.f90 -quiet -v
-D__DYNAMIC__ t.F90 -fPIC -quiet -dumpbase t.F90 -mmacosx-version-min=10.5.8
-mtune=generic -auxbase t -version -fintrinsic-modules-path
/usr/local/gfortran/lib/gcc/i386-apple-darwin8.10.1/4.5.0/finclude -o t.s
GNU Fortran (GCC) version 4.5.0 20090604 (experimental) [trunk revision 148180]
(i386-apple-darwin8.10.1)
        compiled by GNU C version 4.5.0 20090604 (experimental) [trunk revision
148180], GMP version 4.3.1, MPFR version 2.4.1-p5
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
ignoring nonexistent directory
"/usr/local/gfortran/lib/gcc/i386-apple-darwin8.10.1/4.5.0/../../../../i386-apple-darwin8.10.1/include"
#include "..." search starts here:
#include <...> search starts here:
 /usr/local/gfortran/lib/gcc/i386-apple-darwin8.10.1/4.5.0/finclude
 /usr/local/include
 /usr/local/gfortran/include
 /usr/local/gfortran/lib/gcc/i386-apple-darwin8.10.1/4.5.0/include
 /usr/local/gfortran/lib/gcc/i386-apple-darwin8.10.1/4.5.0/include-fixed
 /usr/include
End of search list.
GNU Fortran (GCC) version 4.5.0 20090604 (experimental) [trunk revision 148180]
(i386-apple-darwin8.10.1)
        compiled by GNU C version 4.5.0 20090604 (experimental) [trunk revision
148180], GMP version 4.3.1, MPFR version 2.4.1-p5
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
t.F90: In function 'getkeys':
t.F90:14:0: internal compiler error: Bus error
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.


-- 
           Summary: function result with pointer to strided component of
                    argument
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Thomas dot L dot Clune at nasa dot gov
GCC target triplet: i386-apple-darwin8.10.1


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[kargl at gcc dot gnu dot org]

------- Comment #1 from kargl at gcc dot gnu dot org  2010-05-21 18:19 -------
Thanks for the bug report.

Can you upgrade to a newer version of the compiler?

bash-3.2$ gfortran -v -save-temps -c t.F90
Using built-in specs.
Target: i386-apple-darwin8.10.1
Configured with: /tmp/gfortran-20090604/ibin/../gcc/configure

2009-06-04 is nearly a year old.

The code compiles with

gcc version 4.4.5 20100504 (prerelease) (GCC)
gcc version 4.5.1 20100420 (prerelease) (GCC) 
gcc version 4.6.0 20100510 (experimental) (GCC) 

So, the bug appears to be fixed in all actively
maintained branches.


-- 

kargl at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[Thomas dot L dot Clune at nasa dot gov]

------- Comment #2 from Thomas dot L dot Clune at nasa dot gov  2010-05-21 19:58 -------
Thanks - yes I can upgrade.   (But not quite as easily as I can report a bug,
apparently. :-)   All of the systems I currently have access to only have
4.5.0, and some of those were quite recent installs, so I'll need to burn some
brownie points to get the upgrades on those platforms.

Cheers,

- Tom


-- 

Thomas dot L dot Clune at nasa dot gov changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |RESOLVED
         Resolution|                            |FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2010-05-21 20:24 -------
http://gcc.gnu.org/wiki/GFortranBinaries

You could even install these locally perhaps to get what you need.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[kargl at gcc dot gnu dot org]

------- Comment #4 from kargl at gcc dot gnu dot org  2010-05-21 20:34 -------
(In reply to comment #3)
> http://gcc.gnu.org/wiki/GFortranBinaries
> 
> You could even install these locally perhaps to get what you need.
> 

Unfortunately, all of the binaries available for
Darwin at the wiki are too old to help Thomas.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[Thomas dot L dot Clune at nasa dot gov]

------- Comment #5 from Thomas dot L dot Clune at nasa dot gov  2010-05-21 20:49 -------
Subject: Re:  function result with pointer to strided component of argument

Alas,  my primary development platform is Mac OS X, and no more recent  
binaries are available.   I'm in the process of building 4.5.1 now,  
but the bootstrapping is a nontrivial effort.   (And I won't tell you  
what we had to do to get 4.5.0 installed under IRIX ....   Hopefully  
those changes will suffice for 4.5.x as well.)

Cheers,

- Tom


On May 21, 2010, at 4:24 PM, jvdelisle at gcc dot gnu dot org wrote:

>
>
> ------- Comment #3 from jvdelisle at gcc dot gnu dot org  2010-05-21  
> 20:24 -------
> http://gcc.gnu.org/wiki/GFortranBinaries
>
> You could even install these locally perhaps to get what you need.
>
>
> -- 
>
>
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232
>
> ------- You are receiving this mail because: -------
> You reported the bug, or are watching the reporter.

Thomas Clune                                    
Software Integration and Visualization Office
NASA GSFC (610.3)
301-286-4635 (W)        240-266-0400 (F)
<Thomas.L.Clune@nasa.gov>


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[dominiq at lps dot ens dot fr]

------- Comment #6 from dominiq at lps dot ens dot fr  2010-05-21 21:04 -------
Why don't you use fink (http://finkproject.org/ 4.4.2 works for your test) or
macport?


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[Thomas dot L dot Clune at nasa dot gov]

------- Comment #7 from Thomas dot L dot Clune at nasa dot gov  2010-05-22 00:44 -------
Subject: Re:  function result with pointer to strided component of argument

I may end up doing that, but since part of my interest is in F2003  
functionality, moving backwards in terms of versions is not a win- 
win.   Unfortunately, I probably will have to work with 2 versions for  
the time being.

On May 21, 2010, at 5:04 PM, dominiq at lps dot ens dot fr wrote:

>
>
> ------- Comment #6 from dominiq at lps dot ens dot fr  2010-05-21  
> 21:04 -------
> Why don't you use fink (http://finkproject.org/ 4.4.2 works for your  
> test) or
> macport?
>
>
> -- 
>
>
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232
>
> ------- You are receiving this mail because: -------
> You reported the bug, or are watching the reporter.

Thomas Clune                                    
Software Integration and Visualization Office
NASA GSFC (610.3)
301-286-4635 (W)        240-266-0400 (F)
<Thomas.L.Clune@nasa.gov>


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[Thomas dot L dot Clune at nasa dot gov]

------- Comment #8 from Thomas dot L dot Clune at nasa dot gov  2010-05-22 00:59 -------
Hmm.  I've now built gfortran 4.5.1  20100521 (from the branch) and still have
the same internal compiler error.   Are you certain that the 4.5.1 20100420
version does not have this problem?  

(In reply to comment #1)
> Thanks for the bug report.
> 
> Can you upgrade to a newer version of the compiler?
> 
> bash-3.2$ gfortran -v -save-temps -c t.F90
> Using built-in specs.
> Target: i386-apple-darwin8.10.1
> Configured with: /tmp/gfortran-20090604/ibin/../gcc/configure
> 
> 2009-06-04 is nearly a year old.
> 
> The code compiles with
> 
> gcc version 4.4.5 20100504 (prerelease) (GCC)
> gcc version 4.5.1 20100420 (prerelease) (GCC) 
> gcc version 4.6.0 20100510 (experimental) (GCC) 
> 
> So, the bug appears to be fixed in all actively
> maintained branches.
> 


-- 

Thomas dot L dot Clune at nasa dot gov changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |UNCONFIRMED
         Resolution|FIXED                       |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[kargl at gcc dot gnu dot org]

------- Comment #9 from kargl at gcc dot gnu dot org  2010-05-22 01:34 -------
(In reply to comment #8)
> Hmm.  I've now built gfortran 4.5.1  20100521 (from the branch) and still have
> the same internal compiler error.   Are you certain that the 4.5.1 20100420
> version does not have this problem?  
> 

Yep.  But, I use FreeBSD instead of Darwin.  You could be seeing
a target specific problem.  Your code coompiles on i686-*-freebsd
and x86_64-*-freebsd.

The obvious questions are: did you de-installed the older version?
Are you using the newer gfortran if the older version is still 
around?

-- 
steve


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[Thomas dot L dot Clune at nasa dot gov]

------- Comment #10 from Thomas dot L dot Clune at nasa dot gov  2010-05-22 01:59 -------
Subject: Re:  function result with pointer to strided component of argument

To be honest I'm very rusty at building gcc.   (Remember doing it  
almost daily 10-15 years ago, but generally use commercial compilers  
these days.)   Yes - there were some problems with the build, but I  
thought they were not relevant.   I did not uninstall.

Trying to cleanup and start from scratch now.


On May 21, 2010, at 9:34 PM, kargl at gcc dot gnu dot org wrote:

>
>
> ------- Comment #9 from kargl at gcc dot gnu dot org  2010-05-22  
> 01:34 -------
> (In reply to comment #8)
>> Hmm.  I've now built gfortran 4.5.1  20100521 (from the branch) and  
>> still have
>> the same internal compiler error.   Are you certain that the 4.5.1  
>> 20100420
>> version does not have this problem?
>>
>
> Yep.  But, I use FreeBSD instead of Darwin.  You could be seeing
> a target specific problem.  Your code coompiles on i686-*-freebsd
> and x86_64-*-freebsd.
>
> The obvious questions are: did you de-installed the older version?
> Are you using the newer gfortran if the older version is still
> around?
>
> -- 
> steve
>
>
> -- 
>
>
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232
>
> ------- You are receiving this mail because: -------
> You reported the bug, or are watching the reporter.

Thomas Clune                                    
Software Integration and Visualization Office
NASA GSFC (610.3)
301-286-4635 (W)        240-266-0400 (F)
<Thomas.L.Clune@nasa.gov>


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[dominiq at lps dot ens dot fr]

------- Comment #11 from dominiq at lps dot ens dot fr  2010-05-22 10:04 -------
> I may end up doing that, but since part of my interest is in F2003  
> functionality, moving backwards in terms of versions is not a win- 
> win.   Unfortunately, I probably will have to work with 2 versions for  
> the time being.

I am using fink to build the libs needed to build gcc: gmp, mpfr, ... . If you
are interested by F2003 functionality and are building gcc, it will make sense
to build trunk rather that 4.5.

Note that while using x86_64-apple-darwin10, I get the same results than Steve
Kargl.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[fxcoudert at gcc dot gnu dot org]

------- Comment #12 from fxcoudert at gcc dot gnu dot org  2010-08-06 09:05 -------
(In reply to comment #8)
> Hmm.  I've now built gfortran 4.5.1  20100521 (from the branch) and still have
> the same internal compiler error.

I have gcc 4.5.1 20100506 on x86_64-apple-darwin10.3.0, and it compiles fine.
The Fortran patches between my version and yours are:

------------------
Revision 159556
2010-05-19  Tobias Burnus  <burnus@net-b.de>

        PR fortran/43591
        * expr.c (gfc_is_constant_expr, gfc_traverse_expr): Handle
        proc-pointers and type-bound procedures.
        (gfc_specification_expr): Check proc-pointers for pureness.


Revision 159417
2010-05-14  Steven G. Kargl  <kargl@gcc.gnu.org>

        PR fortran/44135
        * fortran/interface.c (get_sym_storage_size): Use signed instead of
        unsigned mpz_get_?i routines.


Revision 159363
        PR fortran/44036
        * openmp.c (resolve_omp_clauses): Allow procedure pointers in clause
        variable lists.
        * trans-openmp.c (gfc_omp_privatize_by_reference): Don't privatize
        by reference dummy procedures or non-dummy procedure pointers.
        (gfc_omp_predetermined_sharing): Return
        OMP_CLAUSE_DEFAULT_FIRSTPRIVATE for dummy procedures.


Revision 159306
2010-05-12  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/40728
        * intrinc.c (gfc_is_intrinsic): Do not prematurely mark symbol
        as external.


Revision 159101
2010-05-06  Tobias Burnus  <burnus@net-b.de>

        PR fortran/43985
        * trans-types.c (gfc_sym_type): Mark Cray pointees as
        GFC_POINTER_TYPE_P.
------------------


None of these look like they could be "it". It could be something outside the
Fortran front-end, or a 32/64-bit issue (but then, we'd probably see it on
32-bit linux too).

If you have time, can you:

  1. Using "gfortran -v", isolate the invocation of the compiler itself, f951
  2. Copy-paste this command-line and run it under gdb: "gdb -args [command
line here]"
  3. When it aborts, backtrace (command "bt") and copy-paste the output of gdb.

This will give information on where to look.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

[Bug fortran/44232] function result with pointer to strided component of argument

[dfranke at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

Daniel Franke <dfranke at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |RESOLVED
         Resolution|                            |WORKSFORME

[Bug fortran/44232] function result with pointer to strided component of argument

[Thomas.L.Clune at nasa dot gov]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

--- Comment #14 from tlcclt <Thomas.L.Clune at nasa dot gov> 2010-12-29 16:30:31 UTC ---
Sorry - yes.  This bug report can be closed.    I did eventually  
install a more recent version of the compiler and verified that the  
problem was not present.   Had long forgotten about this ticket though.



On Dec 28, 2010, at 12:55 PM, dfranke at gcc dot gnu.org wrote:

> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232
>
> Daniel Franke <dfranke at gcc dot gnu.org> changed:
>
>           What    |Removed                     |Added
> ----------------------------------------------------------------------------
>             Status|UNCONFIRMED                 |WAITING
>   Last reconfirmed|                            |2010.12.28 17:55:10
>                 CC|                            |dfranke at gcc dot  
> gnu.org
>     Ever Confirmed|0                           |1
>
> --- Comment #13 from Daniel Franke <dfranke at gcc dot gnu.org>  
> 2010-12-28 17:55:10 UTC ---
> Anything new here or can this report be closed?
>
> -- 
> Configure bugmail: http://gcc.gnu.org/bugzilla/userprefs.cgi?tab=email
> ------- You are receiving this mail because: -------
> You reported the bug.

Thomas Clune                    
Software Integration and Visualization Office
NASA GSFC (610.3)
301-286-4635 (W)    301-286-1775 (F)
<Thomas.L.Clune@nasa.gov>

[Bug fortran/44232] function result with pointer to strided component of argument

[dfranke at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44232

Daniel Franke <dfranke at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2010.12.28 17:55:10
                 CC|                            |dfranke at gcc dot gnu.org
     Ever Confirmed|0                           |1

--- Comment #13 from Daniel Franke <dfranke at gcc dot gnu.org> 2010-12-28 17:55:10 UTC ---
Anything new here or can this report be closed?