From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-yw1-f169.google.com (mail-yw1-f169.google.com [209.85.128.169]) by sourceware.org (Postfix) with ESMTPS id F3F8B3858D1E for ; Sun, 31 Mar 2024 07:01:18 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org F3F8B3858D1E Authentication-Results: sourceware.org; dmarc=fail (p=none dis=none) header.from=carnegiescience.edu Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org F3F8B3858D1E Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=209.85.128.169 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1711868482; cv=none; b=dDiQVBIjVoyDYHCp44TtFVnwqaY/8qMfFFkYUwMDqtphhPp+DO/umOYgSLOx2ZqixzVHDUtbHC5KjPm6WBU1IZoQ8QlbtIgt9NqieBe6kqpw93j2i7hjSmYdjI5Cs+ji0OJ+wj7leQ2g9gjRCN4Qlm4ilYQsS2w9p3aiZc2dBvE= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1711868482; c=relaxed/simple; bh=tMENwLlrqZEG2ewWMGKTjOMQUE6UvhrdXSQqt7829G4=; h=MIME-Version:From:Date:Message-ID:Subject:To; b=DMzDPnW9FYy64Nm0H7djpvY6JkRFjdU7GRov6BnCQRbk4tsP/DqykzgibydYvQVsCN+ZgKCYdlYLcIRVgZpW6YpMFgWnTXQjo2L5M163nxjUYCQ097/YXZf2Q/nDtY3WgtAm5AlTTvaLXwn2SwJNNxbdC+d++kYF8K91zBmdn2s= ARC-Authentication-Results: i=1; server2.sourceware.org Received: by mail-yw1-f169.google.com with SMTP id 00721157ae682-61431e25ca5so23786887b3.2 for ; Sun, 31 Mar 2024 00:01:18 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1711868478; x=1712473278; h=cc:to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=7rUj7pZmSFTv8Sr/VaudZfCtuWAVxu0M+u8l5zJSX58=; b=LwGCXNjrbAvOFWwFMQ4jN5p1oSatUH2qCD/JZhM4i5aHexYvZZEddhW+E3SiheuO2m y7Q5GX5o4Nlbwmn6CrtmqUjJ4/ty5wvx9LEcB1IEkzIlEJztOqWuNVVAIAPkq3hb+yLx K21zbN4LsnNOLJ3fRRZeKpX81jGw8gn2F36xShhNoqac6CFWojoD53TFoetrXdkEUqVE N5fFVMmXVkH0q5cDWgGcGhYFoztujQfVdNegoYx47EMYleSX5SsGizuEx/CToEI4Myl4 GqlCdqpaBs56IVONJ196zbNBIifDqG2PXOVXfkYyx3scgAlfEXamkmh8WW63cNKYa1E1 ZakQ== X-Gm-Message-State: AOJu0YwIN4gk6Issbvt/evTstRtBp5Jby17S4fANnPOQHyN8q++yQ7V4 zK2/N8BR6V/LzvGxf5JFYq/bAlA5zoUJKAZOk1k1pd0GrOKgyfOI6VdIriS4 X-Google-Smtp-Source: AGHT+IFEByq+b3y6lOuT30Ry8/f4/vFYlrN+bpPCSYluWxGYEPG6lMpw69LKckwtKnCmCjv1O9Bj6Q== X-Received: by 2002:a25:16c4:0:b0:dcd:4d96:741f with SMTP id 187-20020a2516c4000000b00dcd4d96741fmr5209658ybw.10.1711868477961; Sun, 31 Mar 2024 00:01:17 -0700 (PDT) Received: from mail-yw1-f170.google.com (mail-yw1-f170.google.com. [209.85.128.170]) by smtp.gmail.com with ESMTPSA id u67-20020a256046000000b00dc2328c28ebsm1519381ybb.51.2024.03.31.00.01.17 for (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Sun, 31 Mar 2024 00:01:17 -0700 (PDT) Received: by mail-yw1-f170.google.com with SMTP id 00721157ae682-61431e25ca5so23786647b3.2 for ; Sun, 31 Mar 2024 00:01:17 -0700 (PDT) X-Received: by 2002:a0d:e608:0:b0:611:1d94:6bad with SMTP id p8-20020a0de608000000b006111d946badmr5706013ywe.18.1711868476936; Sun, 31 Mar 2024 00:01:16 -0700 (PDT) MIME-Version: 1.0 From: Andrew Benson Date: Sun, 31 Mar 2024 00:01:04 -0700 X-Gmail-Original-Message-ID: Message-ID: Subject: ICE with elemental finalizer To: Fortran List Cc: Andrew Benson Content-Type: multipart/alternative; boundary="00000000000078653e0614ef705a" X-Spam-Status: No, score=-0.5 required=5.0 tests=BAYES_00,FREEMAIL_FORGED_FROMDOMAIN,FREEMAIL_FROM,HEADER_FROM_DIFFERENT_DOMAINS,HTML_MESSAGE,KAM_DMARC_STATUS,KAM_SHORT,RCVD_IN_MSPIKE_H2,SPF_HELO_NONE,SPF_PASS,TXREP,URI_DOTEDU,WEIRD_PORT autolearn=no autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: --00000000000078653e0614ef705a Content-Type: text/plain; charset="UTF-8" I opened PR114535 for the following ICE: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114535 The following code (which must be in two files to trigger the error) causes an ICE using the latest gfortran. $ cat ice1.F90 module iv type, public :: vs contains final :: destructor end type vs contains elemental subroutine destructor(s) type(vs), intent(inout) :: s end subroutine destructor end module iv $ cat ice2.F90 module d contains function en() result(dd) use :: iv type(vs) :: dd return end function en end module d module ni contains subroutine iss() use :: d return end subroutine iss end module ni $ gfortran -v Using built-in specs. COLLECT_GCC=gfortran COLLECT_LTO_WRAPPER=/data001/abenson/Galacticus/Tools_Devel/bin/../libexec/gcc/x86_64-pc-linux-gnu/14.0.1/lto-wrapper Target: x86_64-pc-linux-gnu Configured with: ../gcc-git/configure --prefix=/home/abenson/Galacticus/Tools_Devel --enable-languages=c,c++,fortran --disable-multilib Thread model: posix Supported LTO compression algorithms: zlib gcc version 14.0.1 20240330 (experimental) (GCC) $ gfortran -c ice1.F90 -o ice1.o $ gfortran -c ice2.F90 -o ice2.o ice2.F90:16:13: 16 | end module ni | 1 internal compiler error: in gfc_trans_call, at fortran/trans-stmt.cc:400 0x78ddb6 gfc_trans_call(gfc_code*, bool, tree_node*, tree_node*, bool) ../../gcc-git/gcc/fortran/trans-stmt.cc:400 0xaa8a1b trans_code ../../gcc-git/gcc/fortran/trans.cc:2431 0xb47c14 gfc_trans_simple_do ../../gcc-git/gcc/fortran/trans-stmt.cc:2521 0xb47c14 gfc_trans_do(gfc_code*, tree_node*) ../../gcc-git/gcc/fortran/trans-stmt.cc:2653 0xaa898a trans_code ../../gcc-git/gcc/fortran/trans.cc:2463 0xb485e9 gfc_trans_integer_select ../../gcc-git/gcc/fortran/trans-stmt.cc:3199 0xb485e9 gfc_trans_select(gfc_code*) ../../gcc-git/gcc/fortran/trans-stmt.cc:3692 0xaa8957 trans_code ../../gcc-git/gcc/fortran/trans.cc:2475 0xadd6fb gfc_generate_function_code(gfc_namespace*) ../../gcc-git/gcc/fortran/trans-decl.cc:7879 0xaadbf1 gfc_generate_module_code(gfc_namespace*) ../../gcc-git/gcc/fortran/trans.cc:2785 0xa5113d translate_all_program_units ../../gcc-git/gcc/fortran/parse.cc:7086 0xa5113d gfc_parse_file() ../../gcc-git/gcc/fortran/parse.cc:7413 0xaa546f gfc_be_parse_file ../../gcc-git/gcc/fortran/f95-lang.cc:241 Please submit a full bug report, with preprocessed source (by using -freport-bug). Please include the complete backtrace with any bug report. See for instructions. This only occurs if the FINAL subroutine is ELEMENTAL. -- * Andrew Benson: http://users.obs.carnegiescience.edu/abenson * Galacticus: https://github.com/galacticusorg/galacticus --00000000000078653e0614ef705a--