[ET Trac] #2529: Flang error in Cactus/src/util/PointerTo.F90

[Roland Haas]

#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-cactus-src-util
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.einsteintoolkit.org/pipermail/trac/attachments/20210517/ce3d2ffb/attachment.html