<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/132435>132435</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [flang] Another issue in cp2k 2025.1 compilation
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          shivaramaarao
      </td>
    </tr>
</table>

<pre>
    The issue is present in latest trunk
A reduced testcase from cp2k 2025.1 sources is below.

a1.F90:
MODULE mytypes
   TYPE mytype
      INTEGER :: snumber = -1
   END TYPE mytype
END MODULE mytypes

MODULE dcsrconversions
   USE mytypes, ONLY: mytype
   TYPE cmapping
 TYPE(mytype)                          :: brd_mat = mytype()
   END TYPE
 TYPE ctype
      TYPE(cmapping)  :: dmapping = cmapping()
   END TYPE ctype
   PUBLIC :: ctype
END MODULE dcsrconversions

MODULE dapi
   USE mytypes, ONLY: &
      prv_mytype => mytype
   TYPE mytype
 TYPE(prv_mytype), PRIVATE        :: prv = prv_mytype()
   END TYPE mytype
END MODULE dapi

MODULE cp_api
   USE dapi, ONLY: &
 mytype_prv => mytype

   TYPE mytype
      TYPE(mytype_prv), PRIVATE :: prv = mytype_prv()
   END TYPE mytype
END MODULE cp_api

MODULE ptypes
 USE dcsrconversions,  ONLY: myctype => ctype
   USE cp_api,           ONLY: mytype
   PUBLIC :: lenv
   TYPE lenv
      TYPE(myctype)     :: csr_p = myctype()
   END TYPE lenv
END MODULE ptypes

a2.F90:
MODULE dm
   USE ptypes,ONLY: lenv
END MODULE dm

following error is generated in flang compilation

shivaram@amd:~/tt3$ flang -c a1.F90
shivaram@amd:~/tt3$ flang -c a2.F90
error: Semantic errors in a2.F90
./ptypes.mod:12:56: error: Value in structure constructor of type 'mytype' is incompatible with component 'brd_mat' of type 'mytype'
 type(myctype)::csr_p=myctype(dmapping=cmapping(brd_mat=mytype(snumber=-1_4)))
 ^^^^^^^^^^^^^^^^^^^^
././dcsrconversions.mod:6:15: Declaration of 'brd_mat'
  type(mytype)::brd_mat=mytype(snumber=-1_4)
 ^^^^^^^
./ptypes.mod:12:63: error: Keyword 'snumber=' does not name a component of derived type 'mytype'
 type(myctype)::csr_p=myctype(dmapping=cmapping(brd_mat=mytype(snumber=-1_4)))
 ^^^^^^^

</pre>
<img width="1" height="1" alt="" src="http://email.email.llvm.org/o/eJzMVl1vozgU_TXOi9UI7BDCAw9Mk6yq7XaqmXakeYqM7STsgI1sk6ov-9tXF0yApFlV-zRRP4J177n3nPuBmbXFQUmZougLitYz1rijNqk9FidmWMWYYXqWa_GevhwlLqxt4C-ujbRSOVwoXDInrcPONOoXCrIMGykaLgWGY86sxHujK8xr8guTgETzEFvdGC4tAOWy1G9zFGQoyFg43yYBovD9r6_r18cNrt7dey0tCjKM8cvP5_6kO8AYPzy9bP7YfMPgRTNsVVPl0mBE1_gu7Kw2T-sLVzi5CjAEFdwartVJGlto5YO_fh-MyT3--vT4EwKO02mD8IrVdaEOcAQHiKy8DUnwzY9PPzdiVzHXpt97rRBJpkR6aMwnUvho5wQgnscV_qwFHgyuoceQz69fHh_uewh-rd21TiMNWV38p3CILM-Z1-a060wgQUQ317IOB57m4AMkyD1-_vbwI3vZXCham1NLemz-Ae2PWsNTGDjxejdh1RpcU-qwdj7yhM3tPp60CvhesLqgM7b7JJ1z9gOh-jxcLZ2LcpJ7PGpzPi7PqEvA00ODw_nz0YBMO6qU6jQSZHgcy8HHo9O3ojW72svAb5bU440UqEejzsjVrhHVwKju-7WncY3WmqMg2-uy1G8wXNIYbWCpHaSShjkpYD_uS6YOmOuqLkrmCq06t37DokXAKoFo9g8iW-coIgvvcsex34iftSbeuk0Esv4uK6ZcwbvULKRzNpojsu1ozisNkCFBNIuW4HcG-MFKWPgKW2ca7hojMdeqe9AG6z3u2oLE_XDFIEChgC9zRV5K_Fa4Y8tfK3hlIBL7NQfGHyFAGXxZhwboat-WHtH1UPh-tSG6Hi22PgJYekP_akB0fRfuFu14Jb5rULT5_z-dkvB7MUBeVhA0jEDMteQlM20PAO-JEG3rnUlPOH-Ky00Wtwq9pJNC_ynf37QRkNQADgUSWlqstMOKVRKzUSH1HgtpihO86n_TEgbZTKRUJDRhM5mG8YJE8Wq5CmbHNBIJiciChTRein2-imJGFlKIOBeJDGgyK1K4rQSUhGFM4yiZR5Im-zCQhO8lj8UeLQJZsaKcl-WpmmtzmLXXozSkZEGjWclyWdr2XkVIO6OIELhimRQc7vLmYNEiKAvr7ADhCle2l7HOI1rjTGl3lKa_e6nJTWq0VmaNKdOjc7UFnckWke2hcMcmn3NdIbKFEP7fXW3035I7RLYtqkVk67M-peTfAAAA__8R8gT1">