https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #13 from Steve Kargl ---
On Tue, Oct 18, 2022 at 10:40:59AM +, burnus at gcc dot gnu.org wrote:
>
> (In reply to kargl from comment #9)
> > Please commit the patch in comment #7. character(kind=4) is not
> > interoperable
> >
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #12 from Steve Kargl ---
On Tue, Oct 18, 2022 at 05:29:58PM +, sgk at troutmask dot
apl.washington.edu wrote:
>
> % gfcx -c -std=f2018 a.f90
> a.f90:1:30:
>
> 1 | character(kind=4) function bar(x, y, z) bind(C)
> |
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #11 from Steve Kargl ---
On Tue, Oct 18, 2022 at 10:40:59AM +, burnus at gcc dot gnu.org wrote:
>
> (b) subroutine bar(x, y, z) bind(C)
> character(kind=4,len=*) :: x
> character(kind=4) :: y(:)
>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #10 from Tobias Burnus ---
First, the committed patch handles something which was wrong with *and* without
BIND(C) and fixed a genuine bug.
* * *
(In reply to kargl from comment #9)
> Please commit the patch in comment #7.
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #9 from kargl at gcc dot gnu.org ---
(In reply to CVS Commits from comment #8)
> The master branch has been updated by Tobias Burnus :
>
> https://gcc.gnu.org/g:8950288333162caa68b85c71ed2d02f40976ddb9
>
> commit
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #8 from CVS Commits ---
The master branch has been updated by Tobias Burnus :
https://gcc.gnu.org/g:8950288333162caa68b85c71ed2d02f40976ddb9
commit r13-3338-g8950288333162caa68b85c71ed2d02f40976ddb9
Author: Tobias Burnus
Date:
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #7 from kargl at gcc dot gnu.org ---
Here's the updated patch. It will accept the code as before if -std= is absent
or -std=GNU. For other -std= flags such as -std=f2018, one will get
% gfcx -c -std=f2018 a.f90
a.f90:1:31:
1
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #6 from Steve Kargl ---
On Fri, Oct 14, 2022 at 09:36:59PM +, burnus at gcc dot gnu.org wrote:
> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
>
> --- Comment #5 from Tobias Burnus ---
> I do note that we already have
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #5 from Tobias Burnus ---
I do note that we already have bind(C) + kind=4 examples:
https://gcc.gnu.org/git/?p=gcc.git;a=blob;f=gcc/testsuite/gfortran.dg/PR100906.f90
integer, parameter :: c_ucs4_char = 4
and more.
=> Keep
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
kargl at gcc dot gnu.org changed:
What|Removed |Added
Last reconfirmed||2022-10-14
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
kargl at gcc dot gnu.org changed:
What|Removed |Added
Priority|P3 |P4
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #3 from kargl at gcc dot gnu.org ---
(In reply to kargl from comment #2)
> (In reply to Tobias Burnus from comment #1)
> > Better example:
> >
> > character(kind=4) function f(x) bind(C)
> > character(kind=4), value :: x
> > end
>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
kargl at gcc dot gnu.org changed:
What|Removed |Added
CC||kargl at gcc dot gnu.org
---
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107266
--- Comment #1 from Tobias Burnus ---
Better example:
character(kind=4) function f(x) bind(C)
character(kind=4), value :: x
end
Has the dump:
__attribute__((fn spec (". w ")))
character(kind=1) f (character(kind=1) x)
{
(void) 0;
}
14 matches
Mail list logo