Re: typespec in forall and implied-do

2022-11-22 Thread Steve Kargl via Fortran
On Tue, Nov 22, 2022 at 10:15:39PM +0100, Harald Anlauf via Fortran wrote: > Minor addition: > > program foo > implicit none > real(8) :: i > integer, parameter :: q(*) = [(kind(i), integer :: i = 1, 3)] > print *, q > end program foo > > This prints > >8 8

[PATCH] Fortran: error recovery on associate with bad selector [PR107577]

2022-11-22 Thread Harald Anlauf via Fortran
Dear all, please find attached an obvious patch by Steve for a technical regression that resulted from improvements in error recovery of bad uses of associate. Regtested on x86_64-pc-linux-gnu. Will commit soon unless there are comments. As a sidenote: the testcase shows that we resolve the ass

Re: typespec in forall and implied-do

2022-11-22 Thread Harald Anlauf via Fortran
Minor addition: program foo implicit none real(8) :: i integer, parameter :: q(*) = [(kind(i), integer :: i = 1, 3)] print *, q end program foo This prints 8 8 8 although it should be all 4's. So we really need to create a local namespace or even block to

Re: [PATCH 2/2] Fortran: add attribute target_clones

2022-11-22 Thread Mikael Morin
Le 21/11/2022 à 23:26, Bernhard Reutner-Fischer a écrit : On Mon, 21 Nov 2022 20:13:40 +0100 Mikael Morin wrote: Hello, Le 09/11/2022 à 20:02, Bernhard Reutner-Fischer via Fortran a écrit : Hi! (...) + if (allow_multiple && gfc_match_char (')') != MATCH_YES) +{ + gfc_error ("exp

Re: [PATCH 1/2] symtab: also change RTL decl name

2022-11-22 Thread Jan Hubicka via Fortran
> On Mon, 21 Nov 2022 20:02:49 +0100 > Jan Hubicka wrote: > > > > Hi Honza, Ping. > > > Regtests cleanly for c,fortran,c++,ada,d,go,lto,objc,obj-c++ > > > Ok? > > > I'd need this for attribute target_clones for the Fortran FE. > > Sorry for delay here. > > > > void > > > > @@ -303,6 +301,10 @@

Re: [PATCH 1/2] Fortran: Cleanup struct ext_attr_t

2022-11-22 Thread Mikael Morin
Le 21/11/2022 à 21:34, Bernhard Reutner-Fischer a écrit : On Mon, 21 Nov 2022 12:08:20 +0100 Mikael Morin wrote: * gfortran.h (struct ext_attr_t): Remove middle_end_name. * trans-decl.cc (add_attributes_to_decl): Move building tree_list to ... * decl.cc (gfc_mat