coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / use_9.f90
blob588f29dec97569ee71ba02f1dba0230d8bb2959d
1 ! { dg-do compile }
2 module test
3 interface operator(.bar.)
4 module procedure func
5 end interface
6 contains
7 function func(a)
8 integer,intent(in) :: a
9 integer :: funct
10 func = a+1
11 end function
12 end module test
14 use test, only: operator(.func.) ! { dg-error "not found in module 'test'" }
15 end