From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
 id 54CA43858418; Mon, 30 Aug 2021 22:26:45 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 54CA43858418
From: "rimvydas.jas at gmail dot com" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/101918] LTO type mismatches for runtime library
 functions in mixed -fdefault-real-8 projects
Date: Mon, 30 Aug 2021 22:26:45 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 11.2.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: rimvydas.jas at gmail dot com
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-101918-4-JFMns3E4TG@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-101918-4@http.gcc.gnu.org/bugzilla/>
References: <bug-101918-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-BeenThere: gcc-bugs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-bugs mailing list <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Mon, 30 Aug 2021 22:26:45 -0000

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D101918

--- Comment #20 from Rimvydas (RJ) <rimvydas.jas at gmail dot com> ---
Full -fdump-tree-original foo.f90.005t.original from Comment #8 example:

__attribute__((fn spec (". ")))
void foo ()
{
  static real(kind=3D8) b[4] =3D {[0 ... 3]=3D1.0e+0};
  real(kind=3D8) h[4];

  {
    struct array02_real(kind=3D8) parm.0;
    struct array01_real(kind=3D8) parm.1;
    struct array01_real(kind=3D8) * D.3962;
    static integer(kind=3D8) A.2[2] =3D {2, 2};
    struct array01_integer(kind=3D8) parm.3;
    struct array01_integer(kind=3D8) * D.3971;

    parm.0.span =3D 8;
    parm.0.dtype =3D {.elem_len=3D8, .rank=3D2, .type=3D3};
    parm.0.dim[0].lbound =3D 1;
    parm.0.dim[0].ubound =3D 2;
    parm.0.dim[0].stride =3D 1;
    parm.0.dim[1].lbound =3D 1;
    parm.0.dim[1].ubound =3D 2;
    parm.0.dim[1].stride =3D 2;
    parm.0.data =3D (void *) &h[0];
    parm.0.offset =3D -3;
    parm.1.span =3D 8;
    parm.1.dtype =3D {.elem_len=3D8, .rank=3D1, .type=3D3};
    parm.1.dim[0].lbound =3D 1;
    parm.1.dim[0].ubound =3D 4;
    parm.1.dim[0].stride =3D 1;
    parm.1.data =3D (void *) &b[0];
    parm.1.offset =3D -1;
    D.3962 =3D &parm.1;
    parm.3.span =3D 8;
    parm.3.dtype =3D {.elem_len=3D8, .rank=3D1, .type=3D1};
    parm.3.dim[0].lbound =3D 1;
    parm.3.dim[0].ubound =3D 2;
    parm.3.dim[0].stride =3D 1;
    parm.3.data =3D (void *) &A.2[0];
    parm.3.offset =3D -1;
    D.3971 =3D &parm.3;
    _gfortran_reshape_r8 (&parm.0, D.3962, D.3971, 0B, 0B);
  }
  bar ();
}


__attribute__((externally_visible))
integer(kind=3D4) main (integer(kind=3D4) argc, character(kind=3D1) * * arg=
v)
{
  static integer(kind=3D4) options.4[7] =3D {2116, 4095, 0, 1, 1, 0, 31};

  _gfortran_set_args (argc, argv);
  _gfortran_set_options (7, &options.4[0]);
  foo ();
  return 0;
}=