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

--- Comment #8 from Brad Richardson <everythingfunctional at protonmail dot 
com> ---
The below is a direct copy-paste from my terminal:

[Brads-MacBook-Pro:~/tmp/ice_mwe] cat mwe.f90 
    implicit none

    type VARYING_STRING
        character(len=1), allocatable :: characters(:)
    end type

    interface operator(==)
        procedure character_EQ_String
    end interface

    print *, stringToChar(var_str("Hello")) == var_str("World") ! causes ice

contains
    logical function character_EQ_String(lhs, rhs)
        character(len=*), intent(in) :: lhs
        type(VARYING_STRING), intent(in) :: rhs
        character_EQ_String = lhs == stringToChar(rhs)
    end function

    function stringToChar(string)
        type(VARYING_STRING) string
        character(len=size(string%characters)) :: stringToChar
        stringToChar = ""
    end function

    type(VARYING_STRING) function VAR_STR(char)
        character(len=*) char
        integer i
        VAR_STR%characters = [(char(i:i), i = 1, len(char))]
    end function
end
[Brads-MacBook-Pro:~/tmp/ice_mwe] gfortran -o mwe mwe.f90
f951: internal compiler error: Segmentation fault: 11
libbacktrace could not find executable to open
Please submit a full bug report,
with preprocessed source if appropriate.
See <https://github.com/Homebrew/homebrew-core/issues> for instructions.
[Brads-MacBook-Pro:~/tmp/ice_mwe] gfortran --version
GNU Fortran (Homebrew GCC 10.2.0) 10.2.0
Copyright (C) 2020 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

[Brads-MacBook-Pro:~/tmp/ice_mwe] xcode-select -version
xcode-select version 2384.
[Brads-MacBook-Pro:~/tmp/ice_mwe] xcodebuild -version
Xcode 12.2
Build version 12B45b

Reply via email to