1! { dg-do compile { target { { i?86-*-* x86_64-*-* } && ia32 } } }
2!
3! PR fortran/34112
4!
5! Check for calling convention consitency
6! in procedure-pointer assignments.
7!
8      subroutine test() ! { dg-error "fastcall and stdcall attributes are not compatible" }
9cGCC$ attributes stdcall, fastcall::test
10      end subroutine test
11