From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:403:4789::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms9.migadu.com with LMTPS id EAc5KMSs9WRf8wAAG6o9tA:P1 (envelope-from ) for ; Mon, 04 Sep 2023 12:09:08 +0200 Received: from aspmx1.migadu.com ([2001:41d0:403:4789::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id EAc5KMSs9WRf8wAAG6o9tA (envelope-from ) for ; Mon, 04 Sep 2023 12:09:08 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 2417A479E7 for ; Mon, 4 Sep 2023 12:09:08 +0200 (CEST) Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20221208 header.b="WZ4z/8ue"; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1693822148; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=l82VTyIl3Hlxwv1jXEVIj8ASJjPsg9fQRosH/dgCHGo=; b=WAfy45JSMtOM1MX6kZOXJh35bsYgFJC9KOpwK2FFTGJVHunItIUc8VVkTAkRQH/NOuRF3f rBMvQWIcASlu3nIMqk27wW8AmYaHFYTPgKCRan4THfOgAtONKOPeD8i0Y+KtLpqwQ//glU /r2yqyIS/pyfd4cIuhQmJvCvaoHEgR/305TELgj2vy8Z+RcvjxzFc1OU4ZWCuw5lVnCM/b eQW6H0znMSdvRQK4Y3IsXNIfYwjkYDDI+7mXu35V09t/2/kOH/YLfduYk9fCwDZTNFmFyo 80yIQRdBC8vL5p1utTMOHY70Gy+SH+Vn5gF2Q2Ie+SRAF1bouYUvHCrZn3Ed3A== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20221208 header.b="WZ4z/8ue"; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=none) header.from=gmail.com ARC-Seal: i=1; s=key1; d=yhetil.org; t=1693822148; a=rsa-sha256; cv=none; b=ns3PmIbtj0cA0ahc96B4Tvcr+U/MkNsPdRzLwyJpykEQEh523zcm5MtVhUdwL3prYfGu/j 3t2cdpNgdJcyD9HPASG49iZ7WUy3SmyfJdBPVeP4pKUUIEfp+4lJCt2ZOrCTtE+U1bq+6U 0C9ogaAjcKgsAY0aM54VK2EQo6/L/IohbLzlfPjwuA7wxdff87Zpsl2kBxtqtECMwzDYvn DatvwE2UYCRA1c6zAV/iDlWuOvIi1Teis6jXeP4TJ9bqqTad7d9BxNbvx9XdQxSUwv/RO9 QzOenel/YNUi4ANwqIggu6fj30PyWmpcvjKiaDNHxN89GTMVG9w3I3ml5IIwKg== Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qd6VF-00054k-Ly; Mon, 04 Sep 2023 06:08:17 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qd6VD-00054G-B3 for emacs-orgmode@gnu.org; Mon, 04 Sep 2023 06:08:15 -0400 Received: from mail-qv1-xf32.google.com ([2607:f8b0:4864:20::f32]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1qd6VB-0000hz-7d for emacs-orgmode@gnu.org; Mon, 04 Sep 2023 06:08:15 -0400 Received: by mail-qv1-xf32.google.com with SMTP id 6a1803df08f44-64f387094ddso7571066d6.3 for ; Mon, 04 Sep 2023 03:08:12 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1693822092; x=1694426892; darn=gnu.org; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:from:to:cc:subject:date:message-id:reply-to; bh=l82VTyIl3Hlxwv1jXEVIj8ASJjPsg9fQRosH/dgCHGo=; b=WZ4z/8ueWy8NGyrhIhOrbnuoEazauFgC7FIJPDzUV4Qcx58gXPkAJQwIVMwmsTYm8k 6Q90QSguZXnHUnrJEOMSEQ5sW8AZWwgVHdwZ4ijjIE8IEp0jpqQa9FgxkLExKazEfSlQ pHaFNsUxeXj5zNEGfDxXcrIlZ3EF3e9hnHrqxDZRboD1bszERtdUtJkBSfr46pAtB36t FBjdVjSPYJ59jdzxgvGp2A9CJIhiJ3yRPJG7uzIw+p70WVE1i4krTQ36GyvgQZl30u4F Fwbs2K1ZXIqTDA/ybyphEj/1usinHo06X/nF7gBKeCJP43NOBOcAa7A8QrkRF/JkSbSn OAXw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1693822092; x=1694426892; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=l82VTyIl3Hlxwv1jXEVIj8ASJjPsg9fQRosH/dgCHGo=; b=EQsbOxF3l5TImP9OVbGMlBY5IQjvB4eA0hoKFdAcDoHZGZHVAUtMrU+ms+4LpSWOE2 Lz10ZHafpFF9/i6mQkAsjDOYvoeg0s9Yg96hGXjNfT/Rk3tta94uCswtp25W5M2KE5Dh T8eMKRBYcaqmBnM5B6IPxWbqGxVYkAm0RlQBf7p6mssE3iaa7P3MYu7dDBXIr2aT/oEg TMZ0xdVYZoSI5UkkXDyDon2jHEu0IeXb25kBa4x2/lEpIpb7kUMnSkGy0FcUybjsN7NC xMc8mPNryAWc69UBid2GEnCBNzVSYc0tOIjmBjkOXQcVjhoGvtQzfUzpMcoKk4Rn5pmm v8xg== X-Gm-Message-State: AOJu0YzwOqGT0LscDiOD3sRJ3PNDwO2yTv4Z7OycIPojPmvJuBMgh+tJ czI8wSRcXL+GuvOhfqLWvb7fUIRbpMdXojPSLG91mioUAvw/BQ== X-Google-Smtp-Source: AGHT+IFOAEvESQvtbLrNfsJh7XGSRSK57JzJTKJkFWlxdsq6rbwTgFrbjSo3XAtExq9eVMJjHOukyh/PiPCqAqNuOwE= X-Received: by 2002:a0c:f108:0:b0:64f:4a97:6088 with SMTP id i8-20020a0cf108000000b0064f4a976088mr10294689qvl.9.1693822092106; Mon, 04 Sep 2023 03:08:12 -0700 (PDT) MIME-Version: 1.0 References: <87msy2wev2.fsf@localhost> In-Reply-To: <87msy2wev2.fsf@localhost> From: Paul Stansell Date: Mon, 4 Sep 2023 11:07:36 +0100 Message-ID: Subject: Re: [BUG] tangle breaks fortran modules [9.7-pre (release_9.6.7-581-gd38ca5)] To: Ihor Radchenko Cc: emacs-orgmode@gnu.org Content-Type: multipart/alternative; boundary="0000000000001cdecf060485b0b3" Received-SPF: pass client-ip=2607:f8b0:4864:20::f32; envelope-from=paulstansell@gmail.com; helo=mail-qv1-xf32.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Flow: FLOW_IN X-Migadu-Country: US X-Migadu-Queue-Id: 2417A479E7 X-Migadu-Scanner: mx1.migadu.com X-Migadu-Spam-Score: -6.72 X-Spam-Score: -6.72 X-TUID: t4axG18eJ5+t --0000000000001cdecf060485b0b3 Content-Type: text/plain; charset="UTF-8" > > I opened the latest Org git repo, ran make repro, opened the file, > clicked on "tangle" link, moved to the linked source code, and executed > it. It worked. > > So, I am unable to reproduce the problem on my system. > Hello Ihor, Thanks for investigating. Can you please post your tangled file named circle.f90. Mine looks like this program main MODULE Circle implicit None public :: area contains function area(r) implicit none real, intent(in) :: r real :: area area = 3.14159 * r**2 return end function area END MODULE Circle end program main which is broken because org/babel has added the first and last lines. Thanks, Paul --0000000000001cdecf060485b0b3 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
I opened the latest Org git repo, ran make repro, opened= the file,
clicked on "tangle" link, moved to the linked source code, and ex= ecuted
it. It worked.

So, I am unable to reproduce the problem on my system.

Hello=C2=A0Ihor,

Thanks for investigating= .=C2=A0 Can you please post your tangled file named circle.f90.
<= br>
Mine looks like this

=C2=A0 =C2=A0 program main
=C2=A0 =C2=A0 MODULE Circle
=C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 implicit None
=C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 public :: area
=C2=A0 =C2=A0 contains
=C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 function area(r)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 impli= cit none
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 real, intent(in) :: r
=C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 real :: area
=C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 area =3D 3.14159 * r**2
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 retur= n
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 end function area
=C2=A0 =C2=A0 = END MODULE Circle
=C2=A0 =C2=A0 end program main
which is broken because org/babel has added the first and last= lines.

Thanks,

Paul
--0000000000001cdecf060485b0b3--