Skip to content

[Fortran] mark rhs LEN parameter tests as implemented #89

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.

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

Merged
merged 2 commits into from
Feb 6, 2024

Conversation

tblah
Copy link
Contributor

@tblah tblah commented Feb 2, 2024

char_length_2{0,1}.f90 were fixed in
llvm/llvm-project#80412.

Now that these successfully compile I thought I might as well re-categorise the other tests in the same group too.

@tblah tblah requested a review from tarunprabhu February 2, 2024 18:12
char_length_2{0,1}.f90 were fixed in
llvm/llvm-project#80412.

Now that these successfully compile I thought I might as well
re-categorise the other tests in the same group too.
@tblah tblah force-pushed the ecclescake/char_length branch from c6dd6f4 to b281a2e Compare February 2, 2024 18:20
elemental_function_3.f90
elemental_function_2.f90
realloc_on_assign_14.f90
widechar_11.f90
Copy link
Contributor

@tarunprabhu tarunprabhu Feb 2, 2024

Choose a reason for hiding this comment

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

widechar_11.f90 fails to compile for me on Linux x86_64.

Fortran/gfortran/regression/widechar_11.f90:14:1: error: No intrinsic or user-defined ASSIGNMENT(=) matches operand types TYPE(c_ptr) and TYPE(__builtin_c_ptr)
  cptr = c_loc(a4str)
  ^^^^^^^^^^^^^^^^^^^
Fortran/gfortran/regression/widechar_11.f90:14:14: warning: C_LOC() argument has non-interoperable intrinsic type, kind, or length
  cptr = c_loc(a4str)
               ^^^^^
Fortran/gfortran/regression/widechar_11.f90:15:1: error: No intrinsic or user-defined ASSIGNMENT(=) matches operand types TYPE(c_ptr) and TYPE(__builtin_c_ptr)
  cptr2 = c_loc(a4str2)
  ^^^^^^^^^^^^^^^^^^^^^
Fortran/gfortran/regression/widechar_11.f90:15:15: warning: C_LOC() argument has non-interoperable intrinsic type, kind, or length
  cptr2 = c_loc(a4str2)
                ^^^^^^
Fortran/gfortran/regression/widechar_11.f90:31:11: error: No specific function of generic 'c_associated' matches the actual arguments
  if (.not. c_associated (cptr, c_loc(a4str))) error stop
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Fortran/gfortran/regression/widechar_11.f90:31:37: warning: C_LOC() argument has non-interoperable intrinsic type, kind, or length
  if (.not. c_associated (cptr, c_loc(a4str))) error stop
                                      ^^^^^
Fortran/gfortran/regression/widechar_11.f90:32:11: error: No specific function of generic 'c_associated' matches the actual arguments
  if (.not. c_associated (cptr2, c_loc(a4str2))) error stop
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Fortran/gfortran/regression/widechar_11.f90:32:38: warning: C_LOC() argument has non-interoperable intrinsic type, kind, or length
  if (.not. c_associated (cptr2, c_loc(a4str2))) error stop
                                       ^^^^^^

Perhaps the configuration parameters are different?

Copy link
Contributor Author

Choose a reason for hiding this comment

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

Thanks for checking this. I couldn't reproduce this with or without optimization flags so I guess it really is something to do with definitions of C pointers on different platforms. Strange.

@tarunprabhu
Copy link
Contributor

I can't test this today. I will do so tomorrow. Apologies for the delay.

Copy link
Contributor

@tarunprabhu tarunprabhu left a comment

Choose a reason for hiding this comment

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

Worked on X86_64 Linux. Thanks!

@tblah tblah merged commit 2a85cd9 into llvm:main Feb 6, 2024
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

2 participants