From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-oi1-x232.google.com (mail-oi1-x232.google.com [IPv6:2607:f8b0:4864:20::232]) by sourceware.org (Postfix) with ESMTPS id 368D5385B525 for ; Thu, 27 Jul 2023 20:27:22 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 368D5385B525 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com Received: by mail-oi1-x232.google.com with SMTP id 5614622812f47-3a56311c559so239043b6e.0 for ; Thu, 27 Jul 2023 13:27:22 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1690489641; x=1691094441; h=content-transfer-encoding:in-reply-to:subject:from:cc:references:to :content-language:user-agent:mime-version:date:message-id:from:to:cc :subject:date:message-id:reply-to; bh=v+0Mzg7YYIc+k32H1URVW87SU5Q4QQF6zdBqMvpTiSY=; b=YjUdej9xS+ZW4QMWbovxqjkVhkNSKwt+OG1FEcq8C2tdEjhyzKGnqrcV3iEfwJ2wIB o51EXUMZt7oesrmuiQTF6wV9WdOSTUGm54ooDvfughe5jHrhhsd9CQ2GQWO98Q33LQDr 7hQQZ5jcfQBk6X4xAJCb9uV0MIaIEYnSfy4XRCh8SKe28oc6ih4jlTNdbHSBdQkQG6o3 /OIJqBmj7K1B98hse3E5DKiqR1yMqxpyO1m/9FKpmFEGvbxyqtrmQZ2hS03bhySKcrX0 iJ9xue9r4ykOjQnZUdh+sKX3TA6z40aJg3RgLZXau5ZVygZkIvWjz+lwsMcnAkYmhAiW pyPg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1690489641; x=1691094441; h=content-transfer-encoding:in-reply-to:subject:from:cc:references:to :content-language:user-agent:mime-version:date:message-id :x-gm-message-state:from:to:cc:subject:date:message-id:reply-to; bh=v+0Mzg7YYIc+k32H1URVW87SU5Q4QQF6zdBqMvpTiSY=; b=WyC349VWijcqrF+cWARjVIH2utnBG+F3Anqn9Ir5FXohH8aGSVYj9SfqG78FNE//jO xapN3Jo01CypIzoGYGi+DKTciNCullNPF67LARFLMfiLs+JdZ8laEWHYmjy2iEPxnBcS azopAnR0lzgnxHu/SWsTOgYfsL261Z79iajsIuLeg6ACULQTkEJhckorFjM5JicUP9mx gfUjSsPJ4MmYekAbRJHW+IwWryt9fL1xtppnqEsf0HQiaaNfY4ioyILllcIGG/dvUZ3g wa8IBoNReLfaL7oKMWbjd0fWR5oLqdaMSsD010x4PlzOkJYNSEUpOtO79UiwJE7kswp8 nauA== X-Gm-Message-State: ABy/qLYJRwJ+uyx80sftNVbQoacedD9t/6Ur3mYKwnqfZZXSK2KML5O+ 8Mk7gAmSSyRb0fX0WKUmIfQ= X-Google-Smtp-Source: APBJJlEL3wxwBAhmF92x5ElpCs/tdJycV/Pyf3f/I5anjnPu4LLXpl7HuIqNkBpuOSpcxlKgsXtC8A== X-Received: by 2002:a05:6870:c689:b0:1bb:724f:2bca with SMTP id cv9-20020a056870c68900b001bb724f2bcamr571565oab.1.1690489641082; Thu, 27 Jul 2023 13:27:21 -0700 (PDT) Received: from ?IPV6:2601:6c5:8101:fd30::13ad? ([2601:6c5:8101:fd30::13ad]) by smtp.gmail.com with ESMTPSA id c65-20020a814e44000000b0056ffdec590csm628107ywb.41.2023.07.27.13.27.20 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Thu, 27 Jul 2023 13:27:20 -0700 (PDT) Message-ID: Date: Thu, 27 Jul 2023 16:27:19 -0400 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.13.0 Content-Language: en-US To: Allin Cottrell References: Cc: gfortran From: Jerry D Subject: Re: Compile antiquated fortran? In-Reply-To: Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-0.2 required=5.0 tests=BAYES_00,BODY_8BITS,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,NICE_REPLY_A,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,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: On 7/27/23 1:36 PM, Allin Cottrell via Fortran wrote: > 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) Have you considered replacing the above line with IMPLICIT NONE and add explicit declarations as needed? The code will be safer in the long run. Regards, Jerry