From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-vs1-xe31.google.com (mail-vs1-xe31.google.com [IPv6:2607:f8b0:4864:20::e31]) by sourceware.org (Postfix) with ESMTPS id CA28B38582B0 for ; Wed, 26 Oct 2022 05:17:33 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org CA28B38582B0 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=lbl.gov Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=lbl.gov Received: by mail-vs1-xe31.google.com with SMTP id 3so13401603vsh.5 for ; Tue, 25 Oct 2022 22:17:33 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=lbl-gov.20210112.gappssmtp.com; s=20210112; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=bhcowLkmOxiwrqtEOOFd6c5b6VAzleyB0LcqpZ+Kk6I=; b=GQ/mGyNBcIrmLKlf2Di5MW83oylGaRRYzAZZFfGFA8WOtd70uSqIfoCZpDxV2afgJ7 Ma/JeV5kUEMY8NCT94sMRTo4O1sgYPjMGEUetwLv2NX3Anf9k8Ia88BkRmaLnVXCWe0s YSLhFMgDklHpy1xCYvKhJKF/rtbVbc77CYUpP4aY8EVOu1oL2DhGdT7k828NzHNLx6az shu8WHzbC2SkncWRAR9LexXguwBy6+sUOvOdiM5+NSwdUeD+z6ZfKMc0wlWdTKO+lT5t fzoU9JiR9c0IDCPFv1P+da01Pdda8BjRYvkXFyz8gQYjxeqAJWroeNcs+Ko7hzsNHS3u jS7A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=bhcowLkmOxiwrqtEOOFd6c5b6VAzleyB0LcqpZ+Kk6I=; b=Tcm4KZ/BdPMVbMslzYypFej21eGb4XGQI74l0i8bKXV83Pv04KC8kFm2mYCinunPtv ZI/d7DwOrabas2cV0SkBfHyfVeKU/aRKgeGBr2xQNmPq24oujIiYlKpmLqDElMzFVwCy uM8B7PJTvTYdrN1gb/Me8u0mJY1j5GAsYxUhlxjKFkxR/LID8Kfqgs+9GABDpPlWl8oL JD0fSfnxIHLZtvj7rOCxcoGYga3pZMaRjL1bqq6yRZLDzc7NmEgIPwFq1tPgZkCoUPdR 5DZCCLHBopYTlaSdU1PYPdraTSdYkUWqJ+fG5Hq/igJ9MFn3S8Pv4sDBhm3z5NT3p4oz SvGw== X-Gm-Message-State: ACrzQf0qNrlK7E2e4KLWdQOsuPxNvJ0cID03fNm8EriMOvkf9kbHRJg4 Q4evKGKMotMyox6U5hGFwh6xL9BC9cPYGvZTiJx75XlbKR3ovBdjlkoEikeKLJeH/8J1DCpAnl+ ba6k2mLPxi/uhcwjPwW/T17d7BuS/rH1ayaKS5LmAGhQdl8r3BWFAJ2Jaicjk5bUeKLQY5v98Gr rmBv46ScHi1zJo+yiE433d5A== X-Google-Smtp-Source: AMsMyM7tFO//zx4J0Y1HARDOMVfLD8uf/xhRmYINYLIsTyHBH4/ge2NjvojUscGv9OogQQ2eKjJMm4mLofdBJHeuEb0= X-Received: by 2002:a05:6102:34c2:b0:3aa:4751:e8c9 with SMTP id a2-20020a05610234c200b003aa4751e8c9mr398734vst.75.1666761452782; Tue, 25 Oct 2022 22:17:32 -0700 (PDT) MIME-Version: 1.0 From: Damian Rouson Date: Tue, 25 Oct 2022 22:17:22 -0700 Message-ID: Subject: PR 107406 To: fortran@gcc.gnu.org Content-Type: multipart/alternative; boundary="00000000000051ab2905ebe92424" X-Spam-Status: No, score=-0.4 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,HTML_MESSAGE,KAM_DMARC_NONE,KAM_NUMSUBJECT,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,TXREP,T_SPF_PERMERROR 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: --00000000000051ab2905ebe92424 Content-Type: text/plain; charset="UTF-8" gfortran 12.2 accepts the code below if the "allocatable" attribute is removed: % cat gfortran-lock-issue.f90 use iso_fortran_env type foo type(lock_type), allocatable :: bar end type type(foo) foobar[*] end % gfortran -fcoarray=single gfortran-lock-issue.f90 gfortran-lock-issue.f90:3:39: 3 | type(lock_type), allocatable :: bar | 1 Error: Allocatable component bar at (1) of type LOCK_TYPE must have a codimension The NAG compiler accepts the above code with or without the allocatable attribute, and I believe constraint C1608 in the Fortran 2018 interpretation document makes the above code valid. Damian --00000000000051ab2905ebe92424--