https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68227
--- Comment #1 from Gerhard Steinmetz
---
Of course, above code works with :
forall (i=1:n) y(i)%a => x
But it works too, if above n is replaced with literal value 2 :
$ cat y3.f90
program p
type t
end type
type t2
type(t),
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68225
--- Comment #4 from Gerhard Steinmetz
---
>
> Am I correct to understand that this error is bogus for Fortran 2008 (at
> least)?
That feature is new in F2008 :
A structure constructor can omit the value for an allocatable component.
Further
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68225
--- Comment #5 from Gerhard Steinmetz
---
$ cat yy0.f90
program p
type t
integer, allocatable :: a(:)
end type
type(t) :: x
x = t()
print *, allocated(x%a), x%a
end
$ gfortran -g -O0 -Wall -fcheck=all yy0.f90
$ a.out
F
-
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66494
--- Comment #4 from Gerhard Steinmetz
---
Indeed it is.
And prefix specs recursive and non_recursive are not relevant here.
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=44348
--- Comment #11 from Gerhard Steinmetz
---
As a side note, with a slightly modified example b from comment 3 and
$ gfortran --version
GNU Fortran (SUSE Linux) 5.2.1 20151008 [gcc-5-branch revision 228597]
$ cat pr44348_c3b_modified.f90
FUNCTI
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With duplicate entry declarations in scope :
$ cat z1.f90
module m
implicit none
contains
subroutine s1
entry e
end
subroutine s2
entry e
end
end
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68318
--- Comment #1 from Gerhard Steinmetz
---
Somehow similar for functions :
$ cat z3.f90
module m
contains
real function f1()
entry e()
end
real function f2()
entry e()
end
end module
$ gfortran -g -O0 -Wall -fcheck=all -c z3.
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
An interface declaration with an included entry :
$ cat z1.f90
module m
interface
subroutine s
entry e
end
end interface
contains
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68319
--- Comment #1 from Gerhard Steinmetz
---
Same issue with interface of a function.
Compiles if interface is effectivly not used :
$ cat z1x.f90
module m
interface
subroutine s
entry e
end
end interface
contains
subr
: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
One dedicated case and error message. Issue related with pr68225.
$ cat z1
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This wrong code (class not allocatable nor pointer) :
$ cat z1.f90
subroutine s
type t
end type
class(t), parameter :: x = t()
class(t
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68440
--- Comment #1 from Gerhard Steinmetz
---
Some variants :
$ cat z4.f90
subroutine s
type t
end type
class(t), parameter :: x = t()
end
$ gfortran -g -O0 -Wall -fcheck=all z4.f90
f951: internal compiler error: Segmentation fault
---
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68440
--- Comment #2 from Gerhard Steinmetz
---
Detected :
$ cat z7.f90
subroutine s
type t
end type
class(t), allocatable :: x = t()
end
$ gfortran -g -O0 -Wall -fcheck=all z7.f90
z7.f90:4:29:
class(t), allocatable :: x = t()
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
For some tests of "TRANSFER (TRANSFER (E, D), E)" :
$ cat z1.f90
program p
character(huge(1_1)), parameter :: x = 'abc'
print *, tr
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Using this order (f before g) :
$ cat z1.f90
module m
interface gkind
procedure g
end interface
contains
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68442
--- Comment #1 from Gerhard Steinmetz
---
Detected with reversed order :
$ cat z2.f90
module m
interface gkind
procedure g
end interface
contains
integer function g()
g = 1
end
subroutine f(x)
character(kind=gk
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Using wrong defined array a :
$ cat z1.f90
program p
integer, parameter :: n = 2
integer, parameter :: a(:) = 0
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68566
--- Comment #1 from Gerhard Steinmetz
---
Same issue with variants ...
$ cat z2.f90
program p
integer, parameter :: n = 2
integer, parameter :: a(2.) = 1
integer, parameter :: b(n, n) = reshape([a, -a], [n, n])
end
$ cat z3.f90
progra
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Different examples (incl. DATA) with different error messages,
but strong related to pr68566.
$ cat zz3.f90
program p
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68567
--- Comment #1 from Gerhard Steinmetz
---
$ cat z1.f90
program p
integer, parameter :: a(2.,2) = 1
integer, parameter :: b(2) = a(1:2, 2)
end
$ gfortran -g -O0 -Wall -fcheck=all z1.f90
f951: internal compiler error: compare_bound_int(): B
: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Compiling with "-finit-character" gives an internal error here :
$ cat z1a.f90
subroutine s(n)
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68568
--- Comment #1 from Gerhard Steinmetz
---
As already known, this works without an error :
(A SAVE statement without a saved entity list is treated as though
it contained the names of all allowed items in the same scoping unit.)
$ gfortran -g -O
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68568
--- Comment #2 from Gerhard Steinmetz
---
Personal usage of "-finit-character" :
ONLY for debugging/checking, NEVER for production builds.
Issue is related to pr59537, where :
array , dimension(n) , -finit-real
This pr68568 differs in :
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This issue is strong related to pr68568, but differs :
- initialization with DATA
- no explicit SAVE
- it does NOT depend on "-finit-character" nor &
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
These variants with sum of dimensions and codimensions
greater than 7 (actual limit) :
$ cat z1.f90
program p
real
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69395
--- Comment #1 from Gerhard Steinmetz
---
Whereas, detected with this declaration variant :
$ cat z2.f90
program p
real :: z4d(2,2,2,2)[2,2,2,*]
end
$ gfortran -fcoarray=single z2.f90
z2.f90:2:30:
real :: z4d(2,2,2,2)[2,2,2,*]
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
$ cat z1.f90
module m1
type t1
end type
end
module m2
use m1
type t2
procedure(f), pointer :: f2
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69396
--- Comment #1 from Gerhard Steinmetz
---
FYI, works with correct type specification :
$ cat z2.f90
module m1
type t1
end type
end
module m2
use m1
type t2
procedure(f), pointer :: f2 => f2a
procedure(g), pointer :: g2
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
$ cat z1.f90
program p
interface f
procedure f1
!... more
end interface
integer, allocatable :: z
print *, f(z)
contains
integer
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With duplicate dimension attribute specified :
$ cat z1.f90
program p
type t
end type
class(t), allocatable :: z
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69398
--- Comment #1 from Gerhard Steinmetz
---
Whereas, detected :
$ cat z2.f90
program p
type t
end type
type(t), allocatable :: z(:)
target :: z(:)
allocate (z(2))
end
$ gfortran -c z2.f90
z2.f90:5:14:
target :: z(:)
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69398
--- Comment #2 from Gerhard Steinmetz
---
BTW :
$ cat z1c.f90
program p
type t
end type
class(t), allocatable :: z(:)
target :: z(2)
allocate (z(2))
end
$ gfortran-5.3.1 -c z1c.f90
z1c.f90:1:0:
program p
1
internal compiler
: 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 differing declaration and usage of x :
$ cat z1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69417
--- Comment #1 from Gerhard Steinmetz
---
$ gfortran-5.3.1 -c z1.f90
z1.f90:6:0:
print *, x(2)%f()
^
internal compiler error: in aggregate_value_p, at function.c:2068
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
$ cat z1.f90
subroutine s(x)
class(*) :: x[*]
class(*), allocatable :: z
allocate (z
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69418
--- Comment #1 from Gerhard Steinmetz
---
Compiles when relaxing source to mold :
$ cat z2.f90
subroutine s(x)
class(*) :: x[*]
class(*), allocatable :: z
allocate (z, mold=x)
end
$ gfortran-6 -fcoarray=single -c z2.f90
: 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: ---
$ cat z1.f90
blockdata
real x
common /c/ x
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69419
--- Comment #1 from Gerhard Steinmetz
---
$ gfortran-5.3.1 -fcoarray=single -c z1.f90
z1.f90:5:0:
end blockdata
^
internal compiler error: Segmentation fault
: 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: ---
$ cat z1.f90
program p
interface
pure
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69420
--- Comment #1 from Gerhard Steinmetz
---
$ gfortran-5.3.1 -c z1.f90
z1.f90:1:0:
program p
1
internal compiler error: Segmentation fault
---
Compiles without initialization :
$ cat z2.f90
program p
interface
pure integer function
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66679
--- Comment #2 from Gerhard Steinmetz
---
FYI :
$ gfortran --version
GNU Fortran (SUSE Linux) 6.0.0 20160108 (experimental) [trunk revision 232162]
$ gfortran -c pr66679.f90
pr66679.f90:7:0:
print*, size(transfer(vec(1),[var]))
internal
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69474
--- Comment #1 from Gerhard Steinmetz
---
$ gfortran-5.3.1 -c z1.f90
z1.f90:19:0:
z(1:n) = x([(i, i=n,1,-1)])
^
internal compiler error: Segmentation fault
---
These assignment variants are accepted :
$ cat z2.f90
module m
type t
: 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: ---
$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.0.0
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67524
--- Comment #4 from Gerhard Steinmetz
---
With a recent version the message is now :
$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.0.0 20160121 (experimental) [trunk revision 232670]
$ gfortran-6 -c z1_imchfe.f90
z1_imchfe.f90:4:0:
fu
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
An outer statement block with an incomplete embedded statement block
is sometimes not handled properly, like the following :
$ cat z1.f90
program p
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69497
--- Comment #1 from Gerhard Steinmetz
---
Created attachment 37479
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37479&action=edit
Several test cases
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Similar to pr69497, with an incomplete or displaced embedded statement.
Different error messages, and sometimes
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69498
--- Comment #1 from Gerhard Steinmetz
---
$ cat z3.f90
program p
if (2 > 1) then
submodule (m) sm
end if
end
$ gfortran-6 -c z3.f90
f951: internal compiler error: gfc_get_default_type(): Bad symbol ...
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69498
--- Comment #2 from Gerhard Steinmetz
---
And one more exotic, sorry ...
$ cat z7.f90
program p
submodule (m) sm
submodule (m) sm
$ gfortran-6 -c z7.f90
f951: internal compiler error: in gfc_match_submodule, at fortran/module.c:748
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A wrong combination of select type with another statement
(thematically related to pr69497)
$ cat z1.f90
function f(x)
select type (x)
select type (x
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69499
--- Comment #1 from Gerhard Steinmetz
---
Created attachment 37480
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=37480&action=edit
Some more examples
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This code with less array elements than requested via shape sh :
program p
integer, parameter :: sh(2) = [2
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
A missing end program in a "fixed" source s.f :
program p
integer x(2)
x = 0
if ( x(1) < 0 .or.
&x(2)
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66193
--- Comment #11 from Gerhard Steinmetz
---
Created attachment 35726
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35726&action=edit
test case pr66193_1_real.f90
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66193
--- Comment #12 from Gerhard Steinmetz
---
Created attachment 35727
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35727&action=edit
test case pr66193_2_integer.f90
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66193
--- Comment #13 from Gerhard Steinmetz
---
Created attachment 35728
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35728&action=edit
test case pr66193_3_diverse.f90
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66193
--- Comment #14 from Gerhard Steinmetz
---
Attached some prepared test files.
Added more test cases for integer and real.
Added new test case for logical :
subroutine s2
logical(8), parameter :: z1(2) = .true. .or. [ logical(8) :: [ logic
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66193
--- Comment #15 from Gerhard Steinmetz
---
Created attachment 35745
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35745&action=edit
test case pr66193_3_diverse_new.f90
Better test, replaces pr66193_3_diverse.f90
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This code with an alternate return argument (*) seems to be improper :
module p
type t
contains
procedure
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This ambiguous code ...
recursive subroutine s
call s
contains
subroutine s
end
end
yields (with gfortran 5.1.1, 4.9.0, 4.8.3 on
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Another test case :
integer function f()
contains
integer function f()
end
end
yields (gfortran 5.1.1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66493
--- Comment #7 from Gerhard Steinmetz
---
Interestingly, there are some tests in the test suite already,
especially altreturn_3.f90 and altreturn_8.f90.
The latter is using a nopass attribute and compiles.
It still should be tested with some re
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66493
--- Comment #8 from Gerhard Steinmetz
---
Case zarc1_2_pass.f90 should be definitely illegal code.
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This code with "implicit none" :
module m
implicit none
contains
function f(
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
This code uses parameter/variable values before they are defined/initialized.
$ cat z1_complex.f90
program p
complex, parameter :: c1 = (c1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66545
--- Comment #1 from Gerhard Steinmetz
---
Trivially, the following cases behave similar :
$ cat z1_real.f90
program p
real, parameter :: c1 = (c1)
real, parameter :: c2 = c2
real :: c3 = (c3)
real :: c4 = c4
real :: c5
real :
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66244
--- Comment #1 from Gerhard Steinmetz
---
Perhaps it's better to make the target array a bit larger.
And to provide a not so minimalistic version :
program p
integer, target :: a(4)
integer, pointer :: z => a(3)
call s
c
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66544
--- Comment #1 from Gerhard Steinmetz
---
Originally not the above z0.f90, but this code was thought as test case :
$ cat z0.f90
module m
contains
function f() result(z)
procedure(f), pointer :: z
end
end module
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66545
--- Comment #2 from Gerhard Steinmetz
---
FYI, it's astonishing, but this code compiles without an ICE
and prints some reasonable error messages :
$ cat z2_type.f90
program p
type t
integer :: n
end type
type(t), parameter :: c1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66056
--- Comment #2 from Gerhard Steinmetz
---
Hmm, there is always an ICE on my environment, for any used options.
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66056
--- Comment #3 from Gerhard Steinmetz
---
The following test file generates an endless compilation for every
subroutine. It's worth looking deeper.
$ cat type_with_lonely_numbers.f90
program p
call s1
call s2
call s3
call s4
cal
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66056
--- Comment #4 from Gerhard Steinmetz
---
These two do not circle around,
$ cat y1.f90
program p
type t
integer :: n = 1
1 !
2 !
end type
type(t) :: a
print *, a
end
$ cat y2.f90
program p
type t
intege
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
If the first "end interface" is missing :
$ cat zlcti_1.f90
module m
interface operator (.f.)
procedure f
!end interface
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66575
--- Comment #1 from Gerhard Steinmetz
---
The above sources can be reduced further. The part below "contains"
(inclusive contains) is not needed to produce the effect :
$ cat zlcti_4.f90
module m
interface operator (.f.)
proc
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
For read/write an io-unit that is an asterisk (*) identifies an
external unit that is preconnected for sequential
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66643
--- Comment #1 from Gerhard Steinmetz
---
Minimalistic code :
$ cat z_write_none.f90
program p
write (*)
end
$ gfortran -g -O0 -Wall -fcheck=all z_write_none.f90
$ a.out
At line 2 of file z_write_none.f90 (unit = 6, file = 'stdout')
Fortran
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66575
--- Comment #3 from Gerhard Steinmetz
---
Playing around, I've found other cases (wrong code with procedure)
causing endless compilation on my environment, e.g.
$ cat zlctp_1.f90
program p
procedure(g) :: g
procedure(g) :: g
end
$ cat
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
After printing some correct and helpful error messages,
compilation of the following snippets (wrong code) will not end.
Tested with gfortran 5.1.1, 4.9.0, 4.8.3
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Formatted read or write of a variable (list) needs a format (fmt)
string longer than 2 characters, because of
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66708
Gerhard Steinmetz changed:
What|Removed |Added
Severity|normal |enhancement
--- Comment #1 from Gerh
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Specifying a character array for fmt is legal fortran.
If declared as parameter, compilation fails :
$ cat z_wr_fmt_ice_1.f90
program p
character(4
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66709
--- Comment #1 from Gerhard Steinmetz
---
Whereas versions without "parameter" compile and run fine :
$ cat z_wr_fmt_ice_4.f90
program p
character(4) :: fmt(1) = '(i8)'
integer :: n
read (*, fmt=fmt) n
write (*, fmt=fmt) n
end
$
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
For most input/output statements and for several specifiers
compilation aborts if assigned specifier key is not changeable
(is a
: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Sometimes a silent conversion from integer to character occurs
where it should not IMO, but should give an
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66725
--- Comment #1 from Gerhard Steinmetz
---
Whereas :
$ cat y_test_char_1.f90
program p
print *, char(100)
end
$ gfortran y_test_char_1.f90
$ a.out
d
---
$ cat y_test_char_2.f90
program p
print *, char(257)
end
$ gfortran y_test_char_
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66725
--- Comment #2 from Gerhard Steinmetz
---
A more extensive list of different cases :
close (1, status=257)
open (1, access=257)
open (1, action=257)
open (1, asynchronous=257)
open (1, blank=257)
open (1, delim=257)
open (1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66724
--- Comment #1 from Gerhard Steinmetz
---
Longer scheme :
backspace (1, iomsg=#)
close (1, iomsg=#)
close (1, status=#)
endfile (1, iomsg=#)
flush (1, iomsg=#)
inquire (1, iomsg=#)
open (1, access=#)
open (1, action=#)
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=55501
Gerhard Steinmetz changed:
What|Removed |Added
CC||gerhard.steinmetz.fortran@t
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=57284
Gerhard Steinmetz changed:
What|Removed |Added
CC||gerhard.steinmetz.fortran@t
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71623
Gerhard Steinmetz changed:
What|Removed |Added
CC||gerhard.steinmetz.fortran@t
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70524
Gerhard Steinmetz changed:
What|Removed |Added
CC||gerhard.steinmetz.fortran@t
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
With a broken character continuation :
$ cat z1.f90
program p
character(8) :: z
z = 'abc&
!end
$ cat z2.f90
program p
character(8) :: z = &
: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Using -fopenmp together with -fstack-arrays or -Ofast
for a test similar to pr49792 (also related to pr69281) :
$ cat z1.f90
subroutine s (n, x)
integer :: n
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71687
--- Comment #1 from Gerhard Steinmetz
---
As known, case above works with "workshare" :
$ cat z2.f90
subroutine s (n, x)
integer :: n
real :: x(n)
!$omp parallel workshare
x(1:n) = x(n:1:-1)
!$omp end parallel workshare
end
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Aborting with gfortran-7-20160626, 6.1, 5.4, 4.9 :
$ cat z1.f90
program p
call s
contains
subroutine s
real, save :: x[*]
x = 2
block
end
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71688
--- Comment #1 from Gerhard Steinmetz
---
Modified a bit :
$ cat z2.f90
program p
call s
contains
subroutine s
real :: x[*] = 1
block
end block
x = 2
end
end
$ gfortran-6 -fcoarray=lib z2.f90
z2.f90:1:0:
pr
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70524
--- Comment #7 from Gerhard Steinmetz
---
> The ICEs should only happen with --enabled-checking.
Correct.
Here is a small reproducer (wrong code) to experiment with :
$ cat z1.f90
subroutine s(x)
integer :: x(:)
integer :: n = size(lbou
Assignee: unassigned at gcc dot gnu.org
Reporter: gerhard.steinmetz.fort...@t-online.de
Target Milestone: ---
Some problematic code snippets :
$ cat z1.f90
program p
type t1
end type
type t2
integer :: n
class(*), allocatable :: a
end type
type(t1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71703
--- Comment #1 from Gerhard Steinmetz
---
Backtrace with gfortran-7-20160626 :
z2.f90:10:0:
print *, same_type_as(x, y%a)
internal compiler error: in wide_int_to_tree, at tree.c:1487
0xca0093 wide_int_to_tree(tree_node*,
generic_wide_int
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71703
--- Comment #2 from Gerhard Steinmetz
---
Whereas :
$ cat z4.f90
program p
type t1
end type
type t2
integer :: n
class(t1), allocatable :: a
end type
type(t1) :: x = t1()
type(t2) :: y = t2(1, null())
print *, s
401 - 500 of 588 matches
Mail list logo
