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