2 ! { dg-options "-fdump-tree-original" }
6 ! Based on a test case by Joe Krahn.
8 ! Multiple import of the same symbol was failing for
12 use iso_c_binding
, only
: a
=> c_ptr
, b
=> c_ptr
, c_ptr
20 use iso_c_binding
, a
=> c_ptr
, b
=> c_ptr
27 use iso_fortran_env
, only
: a
=> error_unit
, b
=> error_unit
, error_unit
29 if(a
/= b
) call shall_not_be_there()
30 if(a
/= error_unit
) call shall_not_be_there()
34 use iso_fortran_env
, a
=> error_unit
, b
=> error_unit
36 if(a
/= b
) call shall_not_be_there()
39 ! { dg-final { scan-tree-dump-times "shall_not_be_there" 0 "original" } }
40 ! { dg-final { cleanup-tree-dump "original" } }