#2529: Flang error in Cactus/src/util/PointerTo.F90 - Trac

17 May 2021


      #2529: Flang error in Cactus/src/util/PointerTo.F90
Reporter: Erik Schnetter
   Status: new
Milestone: 
  Version: development version
     Type: bug
 Priority: major
Component: Cactus
Comment (by Roland Haas):
Can you supply the file `configs/sim/config-data/config.log`, please?
The configure test there uses:
```fortran
      subroutine foo(a)
        use iso_c_binding, only: c_loc,c_intptr_t
        implicit none
        type(*),dimension(..),target :: a
        integer(kind=kind(c_intptr_t)) :: b
        b = transfer(c_loc(a), b)
      end subroutine
program main
end
```
which is (almost other than the `c_intptr_t`) the same code as inf `PointerTo.F90`:
```fortran
CCTK_POINTER function CCTK_PointerTo(var)
  use iso_c_binding, only: c_loc
  implicit none
type(*), dimension(..), TARGET :: var
  CCTK_POINTER :: address
address = transfer(c_loc(var), address)
  CCTK_PointerTo = address
end function
```
so I would have expected some configure test failing and the define not to be set.
--
Ticket URL: https://bitbucket.org/einsteintoolkit/tickets/issues/2529/flang-error-in-cac...