Skip to content

Commit

Permalink
Merge branch 'workaround-GCC-recursive' into 'development'
Browse files Browse the repository at this point in the history
Workaround gcc recursive

See merge request damask/DAMASK!985
  • Loading branch information
dmentock committed Oct 14, 2024
2 parents addae0a + e689d6b commit 459ae84
Showing 1 changed file with 5 additions and 4 deletions.
9 changes: 5 additions & 4 deletions src/rotations.f90
Original file line number Diff line number Diff line change
Expand Up @@ -158,7 +158,8 @@ end function asMatrix
!--------------------------------------------------------------------------------------------------
! Initialize rotation from different representations.
!--------------------------------------------------------------------------------------------------
subroutine fromQuaternion(self,qu)
! recursive: workaround for https://gcc.gnu.org/bugzilla/show_bug.cgi?id=115348, but seems to cause no harm
recursive subroutine fromQuaternion(self,qu)

class(tRotation), intent(out) :: self
real(pREAL), dimension(4), intent(in) :: qu
Expand All @@ -170,7 +171,7 @@ subroutine fromQuaternion(self,qu)

end subroutine fromQuaternion
!--------------------------------------------------------------------------------------------------
subroutine fromEulers(self,eu,degrees)
recursive subroutine fromEulers(self,eu,degrees)

class(tRotation), intent(out) :: self
real(pREAL), dimension(3), intent(in) :: eu
Expand All @@ -188,7 +189,7 @@ subroutine fromEulers(self,eu,degrees)

end subroutine fromEulers
!--------------------------------------------------------------------------------------------------
subroutine fromAxisAngle(self,ax,degrees,P)
recursive subroutine fromAxisAngle(self,ax,degrees,P)

class(tRotation), intent(out) :: self
real(pREAL), dimension(4), intent(in) :: ax
Expand All @@ -211,7 +212,7 @@ subroutine fromAxisAngle(self,ax,degrees,P)

end subroutine fromAxisAngle
!--------------------------------------------------------------------------------------------------
subroutine fromMatrix(self,om)
recursive subroutine fromMatrix(self,om)

class(tRotation), intent(out) :: self
real(pREAL), dimension(3,3), intent(in) :: om
Expand Down

0 comments on commit 459ae84

Please sign in to comment.