From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-yw1-x1131.google.com (mail-yw1-x1131.google.com [IPv6:2607:f8b0:4864:20::1131]) by sourceware.org (Postfix) with ESMTPS id C6F8D3858D39 for ; Thu, 27 Jul 2023 17:36:48 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org C6F8D3858D39 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=wfu.edu Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=wfu.edu Received: by mail-yw1-x1131.google.com with SMTP id 00721157ae682-583fe10bb3cso13550757b3.2 for ; Thu, 27 Jul 2023 10:36:48 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=wfu.edu; s=google; t=1690479408; x=1691084208; h=mime-version:user-agent:message-id:subject:to:from:date:from:to:cc :subject:date:message-id:reply-to; bh=rCnO2WE7LXscXZI1P64GXSujAfVseRPUg3rtKx2rrz8=; b=Gq2tJUOyDAHKYH1Eh+gUv+srKpzRkvu2QlctkfCoUSxSyIy4PS4EaTO8nh0uVKixFU J98kA/QSC3X8BdKmSYdluKiRUDx8yjFkc8uwDmvd1wSJ7jzWpWoQP1qQQnzhIi7O6hUD xwbpC6LATWJRUX59P+GSC1gweTrOzDGETacxs= X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1690479408; x=1691084208; h=mime-version:user-agent:message-id:subject:to:from:date :x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=rCnO2WE7LXscXZI1P64GXSujAfVseRPUg3rtKx2rrz8=; b=EGtiD5hYx85NU3xbdl6dgilJvIR51I1dXbB+8K+8zfG7GIRz9V4+e7kSlP4MD7QXxt WS+tsCt1KHdx9L3DvczMLgH1apEJYuXqNyH+dxs2SELWqTXHvxJ0hJXp+DdWZsyz/eaP BDWCOokTyxwg6iUQncWE5PeWZaDG1SwIHri9RGlvkkOSnKClOvAcBOXE/+ItcsRHJDFO kN23exjpI25gsHFbHv8SXmAA0KQU6N/xMBvunDTqgPGgX1JuXmK4/ClnIc7DdacATUEu lTyxUqDOoEN+WBhoWW+dSUQ3Hgyk2CHdgPf8Zkm9YmuoYKTqCWJ0AmjwvYtJ++JywdaQ BH8Q== X-Gm-Message-State: ABy/qLYYLQzTyeaIpSKcCZg7amskEOq0bmTiyoMzyBMLDXdkeI2VvW4A 3+eh4im3Ns00HEbpflYwmxBPwY6sG9To8gBZNo8DtGQDqkUT9Gm0GZsGDdM0bVgbu5lYktivM+M VnDAJh34W2oVFtlmqGcH+kKK5YbEJbEFggF6vcavN1/ANf/7039ZoD+1lCElWXJ/Iow== X-Google-Smtp-Source: APBJJlE68M/GlBR+MvS3hrg1WsVQ8b0cKr1TFoSsNoO7bZKdw97kz7DYXFrUNyesetO292YQahemgw== X-Received: by 2002:a0d:d847:0:b0:579:e8de:3580 with SMTP id a68-20020a0dd847000000b00579e8de3580mr6630772ywe.9.1690479407744; Thu, 27 Jul 2023 10:36:47 -0700 (PDT) Received: from myrtle ([2600:1702:2220:5af0::506]) by smtp.gmail.com with ESMTPSA id l9-20020a81d549000000b0056d31a089e9sm513299ywj.126.2023.07.27.10.36.47 for (version=TLS1_2 cipher=ECDHE-ECDSA-AES128-GCM-SHA256 bits=128/128); Thu, 27 Jul 2023 10:36:47 -0700 (PDT) Date: Thu, 27 Jul 2023 13:36:46 -0400 (EDT) From: Allin Cottrell X-X-Sender: allin@myrtle To: fortran@gcc.gnu.org Subject: Compile antiquated fortran? Message-ID: User-Agent: Alpine 2.20.3 (LFD 70 2015-03-15) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="-1463794943-8163518-1690479407=:3084999" X-Spam-Status: No, score=-2.2 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_NONE,TXREP,T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: ---1463794943-8163518-1690479407=:3084999 Content-Type: text/plain; format=flowed; charset=UTF-8 Content-Transfer-Encoding: 8BIT I have old fortran source code (not my own work) for a specialized statistical program that I and others find quite useful. A few years ago I was able to compile it on Linux using gfortran with std=legacy (and also cross-compile it for Windows an Mac). Now I'd like to rebuild it, but with recent gfortran (I've tried 12.2.1 on Fedora and 13.1.1 on Arch) it's a no-go. I get lots of errors of the following sort: ansub9.f:151:44: 151 | INTEGER ITYPE,INIT,LAM,IMEAN,IP,ID,Q,BP,BD,BQ,SQG,MQ,L,M, | 1 Error: Symbol ‘q’ at (1) already has basic type of REAL I can understand this complaint. The code contains this sort of thing within a given subroutine: IMPLICIT REAL*8 (A-H,O-Z) then some lines later on: INTEGER ITYPE,INIT,LAM,IMEAN,P,D,Q,... I guess the author was assuming that an explicit type-assignment just overrides an implicit one. Older gfortran apparently played along with that. My question: Given that I'm already using -std=legacy, are there any other flags that I could add to get the code to compile? (I know I could tackle this by renaming a bunch of variables, but in context that would be an extremely fiddly job.) Thanks for any help. -- Allin Cottrell Department of Economics Wake Forest University ---1463794943-8163518-1690479407=:3084999--