URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [warn_implicit_procedure_1.f90] - Rev 384
Compare with Previous | Blame | View Log
! { dg-do compile }
! { dg-options "-Wimplicit-procedure" }
! PR fortran/22552
! Check for correct -Wimplicit-procedure warnings.
MODULE m
CONTAINS
SUBROUTINE my_sub ()
END SUBROUTINE my_sub
INTEGER FUNCTION my_func ()
my_func = 42
END FUNCTION my_func
END MODULE m
SUBROUTINE test (proc)
IMPLICIT NONE
CALL proc () ! { dg-bogus "is not explicitly declared" }
END SUBROUTINE test
PROGRAM main
USE m
EXTERNAL :: ext_sub
EXTERNAL :: test
INTEGER :: ext_func
CALL ext_sub () ! { dg-bogus "is not explicitly declared" }
PRINT *, ext_func () ! { dg-bogus "is not explicitly declared" }
PRINT *, implicit_func () ! { dg-bogus "is not explicitly declared" }
CALL my_sub () ! { dg-bogus "is not explicitly declared" }
PRINT *, my_func () ! { dg-bogus "is not explicitly declared" }
PRINT *, SIN (3.14159) ! { dg-bogus "is not explicitly declared" }
CALL undef_sub (1, 2, 3) ! { dg-warning "is not explicitly declared" }
! Can't check undefined function, because it needs to be declared a type
! in any case (and the implicit type is enough to not trigger this warning).
END PROGRAM
! { dg-final { cleanup-modules "m" } }