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

    <tr>
        <th>Summary</th>
        <td>
            [flang] -fdefault-real-8 not changing default real type to double
        </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>
    For this program:
   program main
   real :: r

   print *, dcos(r)
   end program

flang gives error when default-real-8 option is used.
$flang -fdefault-real-8 dcos.f90
error: Semantic errors in dcos.f90
./dcos.f90:4:23: error: Actual argument for 'x=' has bad type or kind 'REAL(8)'
          print *, dcos(r)
 ^

classic flang compiles above program. gcc gives similar error but has the option -freal-4-real-8 to support conversion.
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJx8ksGumzwQhZ_GbEZB9kAgLFjw__ey6qp9gsEYcGtsZJu09-0rQ5JWrdRsIjNzZnw-HwpBz1apll3_Y9e3jPa4ON-GRd_J00rkyWWDGz_a3nmIiw6weTd7WlnRMd4BPM-wkrbnF6_IQKoXHXjGX33aRmDYMfwfRukCw5tn2JxVZcfX5EMxGbIzzPquAijvnYfvi7Iwqol2Ey9px-UGbovaWdAB9qDGPEmxPKWX6Y_etDOfGs54dwxM1_uiVrJRy3NFAG1_b8sZ9q9j0ZWs6LBIspe-k3EnA-TnfVU2wuQ8MKx_sOKNYQ0LBRhohPixKXAevmk7pvrn9-4Tw9st2cf6JPD4_QsTu76fcKRJDyfhdCrdummjAtDg7uqJMYdZygfAoFdtyD9ADns8bhYX9QR4mQ5I5ZNVdBD2bXM-gnT2rnzQzubZ2BZjUzSUqVbUBVYc-U1kSzuohqaBc8HLuqnkJAdOxQ2LiSolqmuR6RY5lkJgxSsUKHIxjFNRiaoSouFlM7KSq5W0yY25r7nzc6ZD2FUrRF3VZWZoUCYcKUU8XDPEFFjfJsFl2OfASm50iOHXiKijOaJ9Kq5vf4fCughyITtrOz_DdQb4eLPoYHT7YFS2e9MuMW4hBRt7hv2s47IPuXQrwz7tfPxdNu--KhkZ9oeHwLB_2Li3-DMAAP__yAEXmA">