https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66544
--- Comment #6 from Gerhard Steinmetz
---
When running several private scripts, there was a difference between
some scripts including option -fimplicit-none, and some others that didn't.
Reducing and simplifying gave example z0.f90 from comment
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=40737
Gerhard Steinmetz changed:
What|Removed |Added
CC||gerhard.steinmetz.fortran@t
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
While playing around, one example from ./gcc/testsuite/gfortran.dg/
together with option -fimplicit-none segfaults :
$ gfortran
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
The following examples together with :
$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.0.0 20160121 (experimental) [trunk revision 232670]
$ cat z1.f90
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69604
--- Comment #1 from Gerhard Steinmetz
---
While playing around, one example from ./gcc/testsuite/gfortran.dg/
shows the same error with v6.0.0, but not with v5.3.1 :
$ gfortran-6 -c complex_intrinsic_6.f90
internal compiler error: in gfc_add_
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69514
--- Comment #2 from Gerhard Steinmetz
---
Test case from comment 0 can be reduced to e.g.
$ cat z3.f90
program p
real, parameter :: w(2) = [real :: 0, 3.0*[real :: 2]]
print *, w
end program
$ gfortran-6 -c z3.f90
f951: internal compiler
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A validation run with option -fmodule-private exposes a few problems
when running on test files from ./gcc/testsuite/gfortran.dg/
$ gfortran-6 -fmodule-private -c
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69636
--- Comment #1 from Gerhard Steinmetz
---
To begin with a short example, namely function_kinds_3.f90.
Placing statement "private" explicit in source, reducing a bit,
then compiling without "-fmodule-private" :
$ cat z1.f90
module m
private
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69659
--- Comment #1 from Gerhard Steinmetz
---
List of affected files :
actual_array_offset_1.f90
allocate_class_3.f90
allocate_with_source_16.f90
allocate_with_source_8.f08
class_array_11.f03
class_array_20.f03
class_array_21.f
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A validation run with option -frepack-arrays exposes a regression
when running on test files from ./gcc
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69636
--- Comment #3 from Gerhard Steinmetz
---
Thank you for commenting.
A few comments will follow with melt down (simplified) test cases.
Hopefully, nothing gets lost.
It might have been better to post a handful of separate problem reports
inste
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69636
--- Comment #4 from Gerhard Steinmetz
---
Applying same operations as in comment 1 to derived_external_function_1.f90 :
$ cat z2.f90
module m
private
type t
integer g
end type
end
type(t) function f() result(ff)
use m
ff%g = 42
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69636
--- Comment #5 from Gerhard Steinmetz
---
The ICE with associate_6.f03 and -fmodule-private
depends on including "implicit none" in main program :
$ cat z3.f90
module m
private
contains
pure function func (n) result (f)
integer, int
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69636
--- Comment #6 from Gerhard Steinmetz
---
And for visibility of functions etc., a reduced and modified entry_16.f90 :
$ cat z4.f90
module complex
private :: cx_cadr, cx_radc
type cx
integer :: re
integer :: im
end type
interfac
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69659
--- Comment #3 from Gerhard Steinmetz
---
Responsible is the class declaration of "x" :
$ cat z1.f90
program p
type t
integer :: a
end type
contains
subroutine s (x)
class(t), intent(inout) :: x(:)
print *, x(1)%a
end
end
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69659
--- Comment #4 from Gerhard Steinmetz
---
Another test scheme :
$ cat z4.f90
module m
type t
class(*), allocatable :: z(:)
end type
contains
subroutine s (x)
class(*), intent(in) :: x(:)
print *, size(x)
end subrou
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=57284
--- Comment #4 from Gerhard Steinmetz
---
As known, causative is the class declaration of "a", when using size(a).
Some variants, replacing "class" with "type" :
$ cat z2.f90
module m
type t
end type
contains
function foo(a, b) result(ad
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69499
--- Comment #3 from Gerhard Steinmetz
---
Yet another example :
$ cat z4.f90
module m
class(*) :: z
select type (x => z)
end
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With an incomplete declaration :
$ cat z1.f90
program p
type t
character x y
end type
end
$ gfortran-6 z1.f90
z1.f90:3:17:
character x y
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69859
--- Comment #1 from Gerhard Steinmetz
---
Some other variants :
$ cat z3.f90
program p
type t
character a ,
character b =
character c :
character d +
character e .
character f %
!...
end type
end
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69859
--- Comment #2 from Gerhard Steinmetz
---
A bit different :
$ cat z7.f90
program p
type t
character(2), allocatable :: a(*)
character(*), allocatable :: b(2)
character(*), allocatable :: c(*)
end type
end
$ gfortran-6
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With a missing end apostrophe :
$ cat z1.f90
program p
character(len=2, kind=4) :: a = 'aa', b = 'bb
end
$ gfortran-6 -g z1.
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69860
--- Comment #1 from Gerhard Steinmetz
---
No ICE if "kind=4" is changed to "kind=1" :
$ cat z2.f90
program p
character(len=2, kind=1) :: a = 'aa', b = 'bb
end
$ gfortran-6 -g z2.f90
z2.f90:2:46:
character(len=2, kind=1) :: a = 'aa', b
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A code snippet with a parameter array :
$ cat z1.f90
program p
type t
character :: c
end type
class(t), parameter :: z(2) = t('a')
print
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69861
--- Comment #1 from Gerhard Steinmetz
---
Whereas, with a scalar parameter :
$ cat z2.f90
program p
type t
character :: c
end type
class(t), parameter :: z = t('a')
print *, z%c
end
$ gfortran-6 z2.f90
$ a.out
a
# no erro
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
An array on lhs with incompatible data :
$ cat z1.f90
program p
type t
character(1) :: c(1) = [1]
end type
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69867
--- Comment #1 from Gerhard Steinmetz
---
Detected when lhs is a scalar :
$ cat z4.f90
program p
type t
character(1) :: c(1) = 1
end type
end
$ gfortran-6 z4.f90
z4.f90:3:28:
character(1) :: c(1) = 1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69867
--- Comment #3 from Gerhard Steinmetz
---
These issues are thematically related to pr67804 (... more or less).
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69867
--- Comment #2 from Gerhard Steinmetz
---
One exception from comment 1 :
$ cat z7.f90
program p
type t
character(1) :: b = null()
character(1) :: c(1) = null()
end type
end
$ gfortran-6 z7.f90
f951: internal compiler error: S
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
The following snippet is wrong because n is not declared as parameter :
$ cat z1.f90
program p
integer :: n = 1
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Something goes wrong when a "implicit character" statement is mixed in
at wrong places. There is NO ice, NO out of memory if "implicit none&quo
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69963
--- Comment #1 from Gerhard Steinmetz
---
Created attachment 37795
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37795&action=edit
More tiny examples
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With a typo :
$ cat z1.f90
block data q
end blook data q
block data q2
end block data q2
$ cat z2.f90
block data q
end block q
Version: 6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With an abstract class dummy argument
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69965
--- Comment #1 from Gerhard Steinmetz
---
Compiles if abstract "class(tab)" is replaced with extended "class(t)" :
$ cat z2.f90
module m
type, abstract :: tab
contains
procedure(fab), deferred :: f
end type
type, extends(tab
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Looks strange, is legal (empty substring, zero length) :
$ cat z1.f90
program p
character(99), parameter :: x(2) = ' '
character(99), paramete
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70068
--- Comment #1 from Gerhard Steinmetz
---
Similar :
$ cat z7.f90
program p
integer :: i
character(3), parameter :: x(3) = ['abc', 'ijk', 'xyz']
character(3), parameter :: y(2) = [(x(i)(i:1), i=2,3)]
end
$ gfortran-6 z7.f90
*** Error
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This code accidentally accesses invalid data :
$ cat z1.f90
program p
integer :: i
character(1) :: c
data (c(i:i), i=1,11
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70070
--- Comment #1 from Gerhard Steinmetz
---
Similar :
$ cat z5.f90
program p
integer :: i
character(2) :: c
data (c(i:i), i=-1,2) /2*'c'/
end
$ gfortran-6 -c z5.f90
Error: DATA statement at (1) has more variables than values
*** Error
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A wrong usage of a subscript triplet :
$ cat z1.f90
program p
integer, allocatable :: z(:)[:,:]
allocate (z(2)[1::2,*])
end
$ gfortran-6 -fcoarray=single z1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70071
--- Comment #1 from Gerhard Steinmetz
---
Whereas :
$ cat z3.f90
program p
integer, allocatable :: z(:)[:,:]
allocate (z(1::2)[2,*])
end
$ gfortran-6 -fcoarray=single z3.f90
z3.f90:3:13:
allocate (z(1::2)[2,*])
1
Error
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A short test case :
$ cat z1.f90
program p
type t
integer :: n
end type
class(t), parameter :: z(2,3) = t(1)
print *, size(z, dim=1)
print
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70072
--- Comment #1 from Gerhard Steinmetz
---
Whereas with "type" instead of "class" :
$ cat z2.f90
program p
type t
integer :: n
end type
type(t), parameter :: z(2,3) = t(1)
print *, size(z, dim=1)
print *, lbound(z, dim=1)
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70260
--- Comment #1 from Gerhard Steinmetz
---
Another situation :
$ cat z3.f90
subroutine s (f)
integer, external :: f, g
integer :: h
g = f(2)
h = g(2)
end
$ gfortran-6 -c z3.f90
gimplification failed:
g
QI
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68566
--- Comment #4 from Gerhard Steinmetz
---
Simplified a bit :
$ cat z7.f90
program p
integer, parameter :: a(:) = 1
integer, parameter :: b(2,2) = reshape([a], [2,2])
end
$ gfortran-6 z7.f90
*** Error in `/usr/lib64/gcc/x86_64-suse-linu
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A situation where gimplification fails :
$ cat z1.f90
module m
interface gkind
procedure g
end interface
contains
integer function g()
g => 1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69604
--- Comment #9 from Gerhard Steinmetz
---
Update, using fresh new release gfortran-6 --version
GNU Fortran (SUSE Linux) 6.1.0 20160427 [gcc-6-branch revision 235475]
The error message has changed :
$ gfortran-6 -c z1.f90
internal compiler er
: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With the following codes :
$ cat z1.f90
program p
real, pointer :: z(:)
z(1:2) => null()
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70853
--- Comment #1 from Gerhard Steinmetz
---
Messages interchanged (v5/v6) with a user defined type :
$ cat z3.f90
program p
type t
end type
type(t), pointer :: z(:)
z(1:2) => null()
end
$ gfortran-6 -c z3.f90
internal compiler error:
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69659
--- Comment #8 from Gerhard Steinmetz
---
> Can you confirm that the patch fixes the issue in all cases
> and does not raise new issues?
Yes, I can confirm this now.
FYI, there is a separate/independed issue, see pr70853 comment 1.
My best re
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70854
--- Comment #1 from Gerhard Steinmetz
---
Similar for other intrinsic types :
$ cat z3.f90
program p
real :: x(2), y(2)
block
real, parameter :: a(2) = 0.0
x = a
block
y = 0.0
end block
end block
end
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With GNU Fortran (SUSE Linux) 6.1.0 20160427
and optimization level -Og, -Os, -O1 or higher :
$ cat z1
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
The following code with an inner block aborts when combined with
an appropriate option -finit-*. Here "integer"
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Compiling the following snippet with optimization level -Os, -O2 or
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
For testcase .../gcc/testsuite/gfortran.dg/gomp/gridify-1.f90
and optimization level -Og
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=60561
Gerhard Steinmetz changed:
What|Removed |Added
CC||gerhard.steinmetz.fortran@t
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70854
--- Comment #2 from Gerhard Steinmetz
---
As a side note, above examples are more or less a follow-up of pr67885.
---
As tested recently, some more examples from gfortran's testsuite
seem to be affected when running for example with -finit-loc
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
When len of string a is larger than len(c) :
$ cat z1.f90
program p
character(3), parameter :: a = 'abc'
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70913
--- Comment #1 from Gerhard Steinmetz
---
For completeness, these variants compile without errors :
$ cat z2.f90
program p
type t
character :: c
end type
type t2
character :: q = transfer(t('a'), 'b')
end type
type(t
: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This case is interesting. On my environment with gfortran 6.1.0 20160427
and SUSE Linux 64 bit, this
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70870
--- Comment #2 from Gerhard Steinmetz
---
A variant that aborts with this message directly :
$ gfortran-6 z1.f90
f951: internal compiler error: in gfc_assign_data_value, at fortran/data.c:449
$ cat z1.f90
program p
type t
integer :: n
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=48776
--- Comment #2 from Gerhard Steinmetz
---
On my environment, the example from comment 0 compiles now without an ICE.
$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.1.1 20160502 [gcc-6-branch revision 235698]
$ gfortran-6 -std=f95 pr48776.f9
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67542
--- Comment #4 from Gerhard Steinmetz
---
The ICE from above is gone a while ago.
$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.1.1 20160502 [gcc-6-branch revision 235698]
$ gfortran-6 -g -O0 -Wall -fcheck=all z1.f90
z1.f90:6:15:
type
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67542
--- Comment #5 from Gerhard Steinmetz
---
If not covered elsewhere, one problem is remaining.
Nondeterministic and depending on used options :
$ cat z4.f90
program p
character(1), parameter :: a(4) = ['a','b','c','d']
type t
intege
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Up to now observed only with compile option -g.
Under the hoods possibly related to pr67542.
$ cat z1.f90
program p
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70931
--- Comment #1 from Gerhard Steinmetz
---
Whereas, these variants compile without problems :
$ cat z2.f90
program p
type t
integer :: b(0)
end type
type(t), parameter :: z = t([2])
print *, z
end
$ cat z3.f90
program p
t
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=50410
--- Comment #23 from Gerhard Steinmetz
---
These variants give :
$ cat z1.f90
program p
type ta
integer :: a
end type
type t
type(ta), pointer :: b
end type
type(t) :: z
data z / t(ta(1)) /
end
$ gfortran-6 z1.f9
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=50410
--- Comment #24 from Gerhard Steinmetz
---
And an exotic case :
$ cat z5.f90
module m
real, target :: a[*]
real, pointer :: z => a
end
$ gfortran-6 -fcoarray=lib -c z5.f90
f951: internal compiler error: in record_reference, at cgraphbuil
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70949
--- Comment #1 from Gerhard Steinmetz
---
This variant works :
(as known from several other PRs : change "class" to "type")
$ cat z2.f90
program p
type t1
end type
type t2
type(t1), pointer :: q
end type
type(t1), pointer
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Compiling with optimization level -Og, -Os, -O1 or higher :
(affects older gfortran versions too)
$ cat z1.f90
program p
type t1
end type
type t2
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This error message is generated with optimization level -O0 :
(affects older gfortran versions too)
$ cat z1.f90
program p
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70950
--- Comment #1 from Gerhard Steinmetz
---
Please note : both examples from pr70949 are simplifications of
this PR, thus related. Behaviour differs for -O0 (with/without ICE).
Compiling the example from above with optimization level -Og,
-Os, -O1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=56765
--- Comment #6 from Gerhard Steinmetz
---
On my environment, all tests compile now without an ICE.
(also tested with several other compile options)
$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.1.1 20160502 [gcc-6-branch revision 235698]
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=57197
--- Comment #2 from Gerhard Steinmetz
---
For me, test compiles now without ICE -- same with "use thing" added.
$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.1.1 20160502 [gcc-6-branch revision 235698]
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This first example is partially related to pr50410 :
$ cat z1.f90
program p
type t
real, allocatable :: a(:,:)
end type
type(t), pointer
: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With a missing parameter attribute, or value not initialized :
$ cat z1.f90
program p
integer :: i = 0
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71067
--- Comment #1 from Gerhard Steinmetz
---
A) correct with parameter :
$ cat z3.f90
program p
integer, parameter :: i = 0
integer :: z(2)
data z /2*i/
print *, z
end
$ gfortran-6 z3.f90
$ a.out
0 0
B) wrong c
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With this wrong code :
$ cat z1.f90
program p
integer :: a(2)[*]
data a(1)[1] /1/
data a(2)[1] /2/
end
$ gfortran-6 -fcoarray=lib z1.f90
f951: internal
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66461
--- Comment #11 from Gerhard Steinmetz
---
... some more variations with slightly different "line breaks" :
$ cat z6.f
program p
integer x
x = 0
if ( x >
&0 ) continue
!end
$ gfortran-6
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
While exploring "source space" around pr68019 and pr68154,
another issue came into focus :
$ cat z1.f90
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71203
--- Comment #1 from Gerhard Steinmetz
---
$ cat z4.f90
program p
integer :: i
integer, parameter :: x(2) = 0
integer, parameter :: y(*) = [(x(i:i), i=1,2)]
end
$ gfortran-6 z4.f90
f951: internal compiler error: in add_init_expr_to_sym,
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Full reduction and simplification from a production code base
results in the following reproducer, aborting at -O0 :
$ cat z1.f90
module m
character(10
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70913
--- Comment #3 from Gerhard Steinmetz
---
Another situation :
$ cat z4.f90
program p
character(3) :: a(2) = ['abc', 'xyz']
character(3) :: b(1,2) = ' '
equivalence (b, a)
end
$ gfortran-6 z4.f90
internal compiler error: in gfc_encode_
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71203
--- Comment #2 from Gerhard Steinmetz
---
Forgotten to mention subcases :
$ cat z3a.f90
program p
character(3), parameter :: a(4) = ' '
character(*), parameter :: x(*) = a(1:2)(3:1)
end
$ gfortran-6 z3a.f90
*** Error in `/usr/lib64/gcc/x
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With valid code down to at least 4.8 :
$ cat z1.f90
program p
type t
character(3) :: c(1) = 'a' // ['b']
end type
end
$
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78479
--- Comment #1 from Gerhard Steinmetz
---
Whereas, these variants are ok :
$ cat z3.f90
program p
type t
character(2) :: c(1) = 'a' // ['b']
end type
type(t) :: z
print *, len(z%c), size(z%c), z
end
$ gfortran-7-20161120 z
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With invalid code down to at least 4.8 :
(configured with --enable-checking=yes)
$ cat z1.f90
program p
type t
end type
class(t) :: x = 0
end
$ gfortran
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78499
--- Comment #1 from Gerhard Steinmetz
---
Whereas :
$ cat z2.f90
program p
type t
end type
type(t) :: x = 0
end
$ gfortran-7-20161120 z2.f90
z2.f90:4:17:
type(t) :: x = 0
1
Error: Can't convert INTEGER(4) to T
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With invalid code down to at least 4.8 :
(configured with --enable-checking=yes)
$ cat z1.f90
class(t) function f()
f = 1
end
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78500
--- Comment #1 from Gerhard Steinmetz
---
Whereas :
$ cat z2.f90
type(t) function f()
f = 1
end
$ gfortran-7-20161120 -c z2.f90
z2.f90:1:0:
type(t) function f()
Error: The type for function 'f' at (1) is not accessible
z2.f90:2:3:
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70070
--- Comment #4 from Gerhard Steinmetz
---
At a first glance with gfortran-6 (configured with --enable-checking=yes),
still ICEs for all posted and unposted cases. A dedicated one :
$ gfortran-6 z3.f90
f951: internal compiler error: Segmentatio
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70070
--- Comment #5 from Gerhard Steinmetz
---
FYI, for some circumstances there existed related issues like :
using LANG=de_DE.UTF-8
f951: internal compiler error: Speicherzugriffsfehler
0xc4265f crash_signal
../../gcc/toplev.c:333
0x13f4
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70070
Gerhard Steinmetz changed:
What|Removed |Added
Version|6.0 |7.0
--- Comment #6 from Gerhard Stei
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Follow-up of pr78479 :
$ cat z1.f90
program p
type t
character(3) :: c(2) = 'a' // ['b', 'c']
end type
type(t) :: z
p
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With invalid code, down to at least 4.8 (with --enable-checking=yes).
A different facet; ICE does not depend on compile options
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Appeared between 20161023 (no ICE) and 20161030, with invalid code :
$ cat z1.f90
program p
type t1
class(t2), pointer :: q(2)
end type
end
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Affects version 7 (configured with --enable-checking=yes)
since about 20160904 :
$ cat z1.f90
program p
type t
end
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58904
Gerhard Steinmetz changed:
What|Removed |Added
CC||gerhard.steinmetz.fortran@t
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Invalid code with a hidden type declaration.
Affects version 6 and 7 (configured with --enable-checking=yes)
(bailed out if configured with --enable-checking
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78593
--- Comment #1 from Gerhard Steinmetz
---
Works with a public type declaration :
$ cat z2.f90
module m1
public
type t
integer :: a
end type
end
module m2
use m1
interface operator(+)
module procedure add
end int
1 - 100 of 588 matches
Mail list logo
