break;
/* Expand it as BUILT_IN_MEMCMP_EQ first. If not successful, change it
- back to a BUILT_IN_STRCMP. Remember to delete the 3rd paramater
+ back to a BUILT_IN_STRCMP. Remember to delete the 3rd parameter
when changing it to a strcmp call. */
case BUILT_IN_STRCMP_EQ:
target = expand_builtin_memcmp (exp, target, true);
resolve_variable_values ();
}
- /* Generate child dies for template paramaters. */
+ /* Generate child dies for template parameters. */
if (early_dwarf && debug_info_level > DINFO_LEVEL_TERSE)
gen_generic_params_dies (decl);
scope_die = scope_die_for (type, context_die);
- /* Generate child dies for template paramaters. */
+ /* Generate child dies for template parameters. */
if (!type_die && debug_info_level > DINFO_LEVEL_TERSE)
schedule_generic_params_dies_gen (type);
return 0;
}
-/* Auxiliary function to handle the arguments to reduction intrnisics. If the
+/* Auxiliary function to handle the arguments to reduction intrinsics. If the
function is a scalar, just copy it; otherwise returns the new element, the
old one can be freed. */
// { dg-do compile }
// { dg-options "-Wall" }
-#if __cpluspls >= 201103L
+#if __cplusplus >= 201103L
// C++ 11 test case from comment #0.
namespace comment_0 {
} // comment_2
-#if __cpluspls >= 201103L
+#if __cplusplus >= 201103L
// C++ 11 test case from comment #5.
namespace comment_5 {
asks for.
{ dg-do compile }
- { dg-options "-O2 -Wall -Warray-parameter -Wno-vla-paramater" } */
+ { dg-options "-O2 -Wall -Warray-parameter -Wno-vla-parameter" } */
#define NOIPA __attribute__ ((noipa))
Also verify that the array/pointer argument form in a mismatched
redeclaration doesn't override the form in the initial declaration.
{ dg-do compile }
- { dg-options "-Wall -Warray-parameter -Wno-vla-paramater" } */
+ { dg-options "-Wall -Warray-parameter -Wno-vla-parameter" } */
/* Redclarations with the same or equivalent array form should not
be dianosed. T[0] is diagnosed by -Wpedantic for being invalid
void strcmp_array_lit (void)
{
if (strcmp (a4, "1234")) // { dg-warning "'strcmp' of a string of length 4 and an array of size 4 evaluates to nonzero" }
- // { dg-bogus "in this expreession" "unwanted note" { target *-*-* } .-1 }
+ // { dg-bogus "in this expression" "unwanted note" { target *-*-* } .-1 }
sink (0, a4);
int cmp;
{
if (strcmp (a4, s4)) // { dg-warning "'strcmp' of a string of length 4 and an array of size 4 evaluates to nonzero" }
- // { dg-bogus "in this expreession" "unwanted note" { target *-*-* } .-1 }
+ // { dg-bogus "in this expression" "unwanted note" { target *-*-* } .-1 }
sink (1, a4);
else
sink (0, a4);
{
strcpy (s, "1234");
if (strcmp (a4, s)) // { dg-warning "'strcmp' of a string of length 4 and an array of size 4 evaluates to nonzero" }
- // { dg-bogus "in this expreession" "unwanted note" { target *-*-* } .-1 }
+ // { dg-bogus "in this expression" "unwanted note" { target *-*-* } .-1 }
sink (1, a4);
else
sink (0, a4);
void strncmp_array_lit (void)
{
if (strncmp (a4, "12345", 5)) // { dg-warning "'strncmp' of a string of length 5, an array of size 4 and bound of 5 evaluates to nonzero" }
- // { dg-bogus "in this expreession" "unwanted note" { target *-*-* } .-1 }
+ // { dg-bogus "in this expression" "unwanted note" { target *-*-* } .-1 }
sink (0, a4);
int cmp;
char b[6];
strcpy (b, "12345");
if (strncmp (a, b, 5)) // { dg-warning "'strncmp' of strings of length 4 and 5 and bound of 5 evaluates to nonzero" }
- // { dg-bogus "in this expreession" "unwanted note" { target *-*-* } .-1 }
+ // { dg-bogus "in this expression" "unwanted note" { target *-*-* } .-1 }
sink (0, a, b);
}
cdiag ("ident z_ with trailing underscore"); /* { dg-warning "unquoted identifier or keyword 'z_'" } */
cdiag ("v_ variable"); /* { dg-warning "unquoted identifier or keyword 'v_'" } */
cdiag ("call foo_bar"); /* { dg-warning "unquoted identifier or keyword 'foo_bar'" } */
- cdiag ("unqoted x_y ident"); /* { dg-warning "unquoted identifier or keyword 'x_y'" } */
+ cdiag ("unquoted x_y ident"); /* { dg-warning "unquoted identifier or keyword 'x_y'" } */
cdiag ("size_t type"); /* { dg-warning "unquoted identifier or keyword 'size_t'" } */
cdiag ("bigger than INT_MAX");/* { dg-warning "unquoted identifier or keyword 'INT_MAX'" } */
! { dg-do compile }
! Check that empty array constructors are rejected
program hum
- print *, (//) { dg-error "Empty array constructor" }
+ print *, (//) ! { dg-error "Empty array constructor" }
end program hum
! { dg-do run }
! { dg-options "-fbounds-check -ffrontend-optimize" }
-! { dg-shouldfail "Fortran runtime error: Incorrect extent in argument B in MATMUL intrnisic for dimension 2: is 1, should be 2" }
+! { dg-shouldfail "Fortran runtime error: Incorrect extent in argument B in MATMUL intrinsic for dimension 2: is 1, should be 2" }
module x
implicit none
contains
y = [real(x), aimag(x)]
y = [real(x(1:n)), aimag(x(1:n))]
y = [real(knd) :: 1]
- y = [real(kind=42) :: 1] { dg-error "Invalid type-spec" }
+ y = [real(kind=42) :: 1] ! { dg-error "Invalid type-spec" }
y = [real(kind=knd) :: 1]
y = [real(kind=knd, a=1.)]
y = [real(a=1.)]
type(t2) :: t
integer :: a
- a = t%r1%foo(1) { dg-error "is not an inquiry reference" }
+ a = t%r1%foo(1) ! { dg-error "is not an inquiry reference" }
if (a == 42) stop
end