coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / use_22.f90
blobd61df6713228f393273251c121eb34ecdbb68d31
1 ! { dg-do compile }
3 ! PR fortran/55827
4 ! gfortran used to ICE with the call to `tostring' depending on how the
5 ! `tostring' symbol was USE-associated.
7 ! Contributed by Lorenz Hüdepohl <bugs@stellardeath.org>
9 module stringutils
10 interface
11 pure function strlen(handle) result(len)
12 integer, intent(in) :: handle
13 integer :: len
14 end function
15 end interface
16 end module
17 module intermediate ! does not die if this module is merged with stringutils
18 contains
19 function tostring(handle) result(string)
20 use stringutils
21 integer, intent(in) :: handle
22 character(len=strlen(handle)) :: string
23 end function
24 end module
25 module usage
26 contains
27 subroutine dies_here(handle)
28 use stringutils ! does not die if this unnecessary line is omitted or placed after "use intermediate"
29 use intermediate
30 integer :: handle
31 write(*,*) tostring(handle) ! ICE
32 end subroutine
33 end module