Skip to content

change stdlib-random function rtol to ishftc #714

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom
Merged
merged 2 commits into from
May 14, 2023
Merged

change stdlib-random function rtol to ishftc #714

merged 2 commits into from
May 14, 2023

Conversation

Euler-37
Copy link
Contributor 

static inline uint64_t rotl(const uint64_t x, int k) {
   return (x << k) | (x >> (64 - k));
}

fortran has the intrinsic bit function ishftc(x,k) ,it is same as rtol

Euler-37 added 2 commits May 14, 2023 11:07
@Euler-37
Update stdlib_random.fypp
5990aea 
change function `rtol` to fortran intrinsic `ishftc`
@Euler-37
Update stdlib_random.fypp
967f63b
@Euler-37 Euler-37 changed the title Patch 1 change stdlib-random function rtol to ishftc May 14, 2023
awvwgk
awvwgk approved these changes May 14, 2023
View reviewed changes
Copy link
Member

@awvwgk awvwgk left a comment

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thanks for sharing. Looks good to me.

@awvwgk awvwgk merged commit 933916b into fortran-lang:master May 14, 2023
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Reviewers

@awvwgk awvwgk awvwgk approved these changes

Assignees
No one assigned
Labels
None yet
Projects
None yet
Milestone
No milestone
Development

Successfully merging this pull request may close these issues.
2 participants
@Euler-37 @awvwgk