public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/107272] New: ICE in gfc_compare_string and others (related to pr107217)
@ 2022-10-15 20:24 anlauf at gcc dot gnu.org
  2022-10-16 18:48 ` [Bug fortran/107272] " anlauf at gcc dot gnu.org
                   ` (2 more replies)
  0 siblings, 3 replies; 4+ messages in thread
From: anlauf at gcc dot gnu.org @ 2022-10-15 20:24 UTC (permalink / raw)
  To: gcc-bugs

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107272

            Bug ID: 107272
           Summary: ICE in gfc_compare_string and others (related to
                    pr107217)
           Product: gcc
           Version: 13.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: anlauf at gcc dot gnu.org
  Target Milestone: ---

The following variation of testcase gfortran.dg/pr107217.f90 ICEs
due to yet unhandled non-numeric types:

program p
  print *, 2 <= [real :: (['1'])] ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] >= 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] >  2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] == 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] /= 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] <= 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] <  2 ! { dg-error "Cannot convert" }
  print *, 2 <= [real :: (['1'])] ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] >= 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] >  2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] == 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] /= 2 ! { dg-error "Cannot convert" }
  print *, [real :: (['1'])] <= 2 ! { dg-error "Cannot convert" }
  print *, [logical :: (['1'])] .and.  .true. ! { dg-error "Cannot convert" }
  print *, [logical :: (['1'])] .or.   .true. ! { dg-error "Cannot convert" }
  print *, [logical :: (['1'])] .eqv.  .true. ! { dg-error "Cannot convert" }
  print *, [logical :: (['1'])] .neqv. .true. ! { dg-error "Cannot convert" }
end

The fix is a straightforward extension of the fix for pr107217.

^ permalink raw reply	[flat|nested] 4+ messages in thread
end of thread, other threads:[~2022-10-17 17:32 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-10-15 20:24 [Bug fortran/107272] New: ICE in gfc_compare_string and others (related to pr107217) anlauf at gcc dot gnu.org
2022-10-16 18:48 ` [Bug fortran/107272] " anlauf at gcc dot gnu.org
2022-10-17 17:26 ` cvs-commit at gcc dot gnu.org
2022-10-17 17:32 ` anlauf at gcc dot gnu.org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).